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1 . 


INTRODUCTION 


1 . 1 The problem considered 

The problem considered in the present report involves the develop- 
ment of a general-purpose computer program for the realistic 
prediction of the hydrodynamics and chemical reaction in a two- 
concentric-tube combustor; special attention being given to pollu- 
tant (NO ) formation. 

X; 

The combustor geometry considered in this study is shown in Figure 
1. As indicated in the Figure, concentric streams of fuel (methane) 
and air enter the inner duct of diameter i and length L^. On 
entering the duct , the fuel and air mix together and at the end of 
the inner duct, the flow expands radially outward and flow reversal 
occurs into the passage of inner diameter D 0 . . Combustion occurs 
in the flow reversal region. Oxides of nitrogen and other com- 
bustion products are formed as a result of the chemical reaction. 

The flow is two-dimensional, axisymmetric, steady and turbulent. 

1 . 2 Connexions with previous work 

The method of solution employed is based on Ref 1, which describes 
a general computer program (CHAMPION 2/E/FIX) for two-dimensional 
elliptic flows. While the solution procedure employed in the 
present work is basically the same as that of Ref 1 , the computer 
program itself has been extensively modified in order to improve 
its structure, efficiency and comprehensibility. In addition, 
the present work has also involved the inclusion of heat transfer 
effects and of the appropriate chemical-equilibrium and kinetics- 
calculation schemes. 
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1 . 3 Purpose of the report 

The purpose of this report is to present the analysis of the 
hydrodynamics and the chemical reaction in the two-concentric— tube 
combustor (Fig. 1). The analysis involves the mathematical 
formulation of the flow in terms of partial differential and 
some auxiliary algebraic equations. Subsequently these equations 
are cast in their finite-difference form for obtaining numerical 
solutions. The solution procedure is incorporated in a com- 
puter program to produce profiles of velocity, temperature, and 
species concentrations throughout the combustor. 

This report provides all the necessary information concerning the 
mathematical modelling of the flows under consideration, it 
describes the numerical analysis involved in the solution of the 
relevant equations and it defines the user-orientated parts of the 
program. 

It is to serve as both a comprehensive reference to the mathe- 
matics and numerical procedure used in the program and as an 
operational manual for the computer program. 

1 .4 Layout of the report 

The remainder of this report is divided into ten chapters. 

Chapter 2 is concerned with the mathematical formulation and 
physical models employed in the solution procedure. Chapter 3 
details the numerical solution procedure, and Chapter 4 describes 
further features of the calculation. Thermodynamic and element 
data are discussed in Chapter 5, and kinetics data in Chapter 6. 
Results and discussions are provided in Chapter 7, and Chapter 8 
provides some concluding remarks. Relevant literature references 
and nomenclature are given in Chapters 9 and 10 respectively, which 
close this report. Appendices A and B contain the description 
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and the listing of the computer program. Appendix C contains 
a glossary of Fortran variables used in the computer program; and 
Appendix D contains a partial listing of the output from the 
program. 
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2 . 


PHYSICAL AND MATHEMATICAL ANALYSIS 


2. 1 Introduction 

This Chapter describes the mathematical and physical basis of the 
problem considered. The physical modelling of properties and 
processes is discussed in Section 2.2. Section 2.3 outlines the 
conservation equations for mass, momentum, stagnation enthalpy, and 
chemical species. Boundary conditions are considered in Section 
2.4. Auxiliary equations for mixture properties and flux cal- 
culations are dealt with in Section 2.5. Section 2.6 describes 
the chemical-equilibrium model, and Section 2.7 the chemical- 
kinetics model. 

2.2 Physical Models 

4 

The conservation equations outlined in the next section are based 
on a physical model which involves certain assumptions regarding 
properties and processes; these are now described. 

2.2.1 Processes 

(i) Axial and radial derivatives for conduction, diffusion, 
and momentum transport are included in the conservation 
equations. 

(ii) The chemistry incorporated into the computer code is 
as follows: 

(1) A single-step reaction for hydrocarbon oxidation 
according to : 

1 kg of fuel + s kg of oxygen + (1+s) kg products 

( 1 ) 
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where s is a fixed stoichiometric ratio , and the 
rate of the reaction is governed by the Arrhenius 
relation : 

Rate - C 1 T C 2m f £ 3 in 0 ° 4 exp (-Cg/T) (2) 

where , C 2 , C 3 , C 4 , and C 5 , are constants, T is the 
absolute temperature, and m^ u and m QX are the 
concentrations of fuel and oxygen respectively. 

(2) The products of the above idealized reaction are 
assumed to consist of the species: CO, C0 2 , H 2 0, 

0, II, H 2 , and OH, in such proportions as are 
appropriate to equilibrium stoichiometric adiabatic 
combustion at the prevailing pressure and enthalpy. 
These proportions are represented as algebraic 
functions of pressure and enthalpy; the constants 
in these functions being determined from inter- 
polations in equilibrium computations made external 
and prior to the main computer code. 

(3) Oxides of nitrogen are calculated by reference to 
the kinetically-controlled reactions involving 
the species N 2 , 0 2 , 0, H, and OH. The scheme con- 
sists of nine reactions including the Zeldovich 
mechanism as shown in Section 2.7 below. 


2.2.2 Properties 

Transport-property assumptions are such as to allow a composite 
property £ (-m,, ~ m /s) to characterise the composition of the 

X IX Ua 

gas-mixture with respect to the products of combustion resulting 
from the main hydrocarbon oxidation reaction. The quantity 5 obeys 
a source-free conservation equation, and its transport coefficient 
is a function of position alone. This means that £ is influenced 
by convection and diffusion alone; and underlying its definition 
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is the assumption that the transport properties of oxidant and 
fuel are everywhere equal. 

* 2 . 3 Governing Differential Equations 

The dependent variables are the axial velocity u, radial velocity 

* 

v, pressure p, mixture fraction f, mass fraction of unburnt fuel 
m fu’ stagnation enthalpy ft and the mass fractions of the species 
involved in the N0 x ~ reactions (i.e. NO, N0 9 , N, and N 9 0) . As 
mentioned earlier in Section 2.2.1, the concentrations of the 
species CO, COg, HgO, 0, H, Hg, and OH are determined by a chemical- 
equilibrium analysis, subsequent to the solution of the governing 
differential equations for f and m fu . 

The differential equations which govern the fluid flow for steady, 
two-dimensional axisymmetric flow are written* ** in cylindrical 
polar (x-r) coordinates as: 

♦ 

* 

x-direction momentum equation : 


3 , IB, s 9 , 9u N 19, 9 u n 

4 (pu > + r 5r (prvu) - Tx } " r Tr" (ry Tr* 


■ li + (y ^ + r 37 (ru 


(3) 


** 


* Symbols are explained in the nomenclature (Chapter 10). 

** In the equations presented here and later in the report ,y and r 
are the effective transport coefficients; the subscript ’eff 
is however largely omitted for the sake of convenience. 
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r-direction momentum equation ; 


3 x (Puv) + 7 37 (prv 2 ) - (y |X) _ I ( ry |X) 


M + 9 r,, 3u \ 4. 1 8 3vv 
" “ + (y Sr* + r It (ru Sr* " 


2 y v 
~2 


( 4 ) 


Continuity equation : 


3x 


B (pu) + 7 37 (Prv) = 0 


(5) 


Conservation equation for chemical species t j 


a 3m. i a 3m. 

# (pm y + r 37 (rpvm j ) < r j r 5r i > 


1 3 


"j (6) 


where m . is the mass fraction of chemical species j and R . is the 
J J 

mass rate of creation of species j by chemical reaction. 

Conservation equation for stagnation enthalpy fo : 


__3 

3x 


(puli) 


+ I 

r 


_3 

3r 


(rpvft) - 


3 

3x 


(r fe - 


1 

r 


3 

3r 


, r _ 3 5 k 

(r fe r s7> = 


s ?i 


(7) 


where represents the sum of all the source terms for n and 
includes sources of radiation and heat fluxes at the walls of the 
duct. To arrive at equation (7), the assumption has been made 
that the exchange coefficients for the transport of the mixture 
and that for heat conduction are all equal at a point, although 
they may vary from point to point. 


Conservation equation for mixture fraction f : 


4 < puf > *?3? (rpvf) - a! 


(v 3f* 1 _3 

u f 3x ; " r 3r 


/ p r iL£.) 

u f r 3r ; 


= 0 


( 8 ) 
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where the Mixture traction t is defined as 

f ■ <«-«„) / «* u - 5 ox ) (9)* 

General- |orm of governing differential equations ; 

Equations (3) to (8) may be written in a general form as; 

•Sx + r Iff ~ Tit (r * f§> " ? (r i|. r lr ) " s <|, < l0 > 

In the above equation $ identifies the dependent variable, (3 is 
identically equal to either the mixture density p or aero ; 
is the appropriate exchange coefficient tor the variable <j*j and 
is the source term which includes both the sources of ^(positive 
or negative) and any other terms which cannot find a place on the 
left-hand side of the equation. Table 1 summarizes the equations 
in the form that are solved in the present work. Some notes about 
these equations now follow: 

• The terms involving the velocity divergence (div V) 

in the source terms of the x- and r-raomentum equations 
have been ignored, Eor uniform-density (i.e. inert) 
flows div $ is identically zero and there is no error 
involved. $* or the chemically reacting flows to be 

handled in the present work, div V is expected to be 
small compared to other terms in the momentum equations, 
and its omission will introduce small errors only. 


* Note; £ qx - (-•» ox ) lnlC)t /s and F, lu - (n> fu ) inleti 

where m is the oxygen mass fraction in the incoming oxidant 
stream and m f is the fuel mass fraction in the incoming fuel 
stream, 




Table 1. Summary of Equations 


Equation 
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s * 

Continuity, 
Eq. (5) 

a 

P 

0 

0 

x -moment um, 
Eq. (3) 

u 

H 

y 

_ Lb + L_ (ul +IL ( VU *V) 

9x 9x w 9x ; r 9r 

r-momentum, 
Eq. (4) 

■ 

p 

y 

_ 3E + i_c A + 1 1[J!) _ 2uv 

3r r 8r'- lv, 3r' r a 

Fuel mass 
fraction, Eq. (6) 

m fu 

p 

M/Sc fu 

Rate frail equation(2). 

Mixture 

fraction, Eq. (8) 

f 

p 

u/Sc f 

0. 

NQ^-species, 
Eq. (6) 

ra j 

p 

u/scj 

Rate fran equation (43). 

Stagnation 
enthalpy, Eq. (7) 

ft 

p 

p/Pr^ 

0 (except for boundary fluxes; 
see section 4.3) . 

■ ' . ■ 


10 
































• Since the flow is turbulent, time-average values of 
flow variables and effective values of the exchange 
coefficients must be used. 


2 . 4 Boundary conditions 


Boundary conditions are required for the dependent variables at all 
the boundaries of the flow domain. These are now discussed below. 


2.4.1 Inlet boundary 


(a) u-velocity : The inlet u- velocities of the fuel and air 
streams are obtained from their specified mass flow rates via the 
continuity relations: 


m 


u 


fo 


fo 


7T 


p fuel D f ) 


( 11 ) 


til 


U 


ao 


ao 


air 


IT 

7 




( 12 ) 


(b) v-velocity : The inlet v-velocity is assumed to be zero. 


(c) Pressure : The inlet pressure is assumed uniform at the 
specified value of P Q . 

(d) Chemical species and mixture fraction : In the inlet fuel 
stream, the fuel mass fraction (and mixture fraction) is set to 
unity; all other species mass fractions are set to zero. In the 
inlet air stream, the oxygen mass fraction is set to 0.232, and 
the nitrogen mass fraction to 0.768; all other species mass 
fractions (and mixture fraction) are set to zero. 
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(e) Stagnation enthalpy : The inlet stagnation enthalpy in the 
fuel and air streams is calculated from the specified inlet 
temperature and mixture composition by the equations given in 
Section 5.2. 

2.4.2 Outlet boundary 

(a) u-velocity : The outlet boundary condition for u-velocity is 
assumed to be that of zero axial gradient, i.e. 

= 0 at the exit (13) 

(b) v-velocity : The outlet v-velocity is assumed to be zero, 
this follows from the outlet boundary condition on u-velocity. 

(c) Pressure : For pressure, an outlet boundary condition of 
uniiorm pressure is employed. 

(d) Chemical species, mixture fraction and stagnation enthalpy : 

The outlet boundary condition for chemical species, mixture 
fraction and stagnation enthalpy is again assumed to be that of 
zero axial gradient, i.e. 

(14) 

at the exit (15) 

(16) 

2.4.3 Axis of symmetry 

At this boundary, a condition of zero radial gradient is assumed 


3m . 

si 

3x 

af 

3h 

ITx 


- 0 
= 0 
= 0 


J 


for all dependent variables except the v-velocity which is set to 
zero . 

2.4.4 The wall boundaries 

The treatment of wall boundaries is discussed in Chapter 4 after 
the finite-difference equations have been derived in Chapter 3. 

The reason is that the treatment of the wall boundaries requires 
reference to the finite-difference equations. 

2 « 5 Auxiliary Relations 

In this section some auxiliary relations, and the assumptions 
associated with their use are introduced. These relations are 
used for the calculation of fluxes and certain properties. 

2.5.1 Flux laws 

Implicit in the differential equations given in Section 2.3 are 
the flux laws for the transport of momentum, mass and heat. These 
laws will now be summarised , for laminar and turbulent flows. 

(a) Laminar transport properties : 

(i) Viscosity : Newton's law of viscosity for momentum 

transfer, relating the shear stress t to the local 
velocity gradient, through the laminar viscosity, \i, 
can be expressed for simple flows as; 

T = y(9u/9y) (17) 

(ii) Diffusion coefficient : Fick's law of diffusion for mass 
transfer, relating the diffusion mass flux J j , to the 
concentration gradient, through the exchange 
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coefficient, P ^ , has the form: 

Jj = -Tj (3mj/9y), for the species j (18) 

The diffusion coefficient P^ is obtained from the 
definition of Schmidt number. Thus, 

Ij = y/SCj (19) 

It has been assumed in the solution procedure that the 
Schmidt numbers for fuel and oxygen (and all the other 
species) are equal to each other, and also uniform 
throughout the flow field. 

(iii) Thermal conductivity : Fourier’s law of heat conduction, 
relating the heat flux Q to the temperature gradient, 
through the exchange coefficient, can be written as: 

Q - -rjj cOT/3y) (2Q) 

where c stands for the constant-pressure specific heat 
of the local gas mixture. 

In the present analysis, P^ is obtained from a knowledge 
of the mixture viscosity y and the laminar Prandtl 
number : 


r ii = »/ pr ii ( 21 ) 

In general, the laminar Prandtl number (or the exchange 
coefficient itself) can, if desired, be specified as 
any arbitrary function of temperature and composition; 
this will make depend upon temperature and composition 
in a way different from y. 
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Turbulent transport properties ! 


For a realistic modelling of the flow, the effect of turbulence 
has to be included whenever appropriate. The scop© of the 
present contract does not permit the treatment of turbulence 
by t **ans of a sophisticated model. Instead a simply aero- 
equation model of turbulence is employed. 


(i) Viscosity i The turbulent shear stresses are linked to 
the local velocity gradient through a laminar-like 
stress-strain law ; 


T * VI 




For the present work, the effective viscosity is assumed 
to be uniform throughout the flow field. This uniform 
value is obtained from an empirical relation which 
gives a value of of the same order as expected in 
flows of the type under consideration: 



0.1 3 (m 
“ $ 


fo^W 


l» i 


( 33 ) 


where m fo and m ao are the inlet fuel and air mass flow 
rates and ^ is the inner diameter of the inner tube. 


(ii) Diffusion coefficient and thermal conductivity : The 

effective diffusion coefficients for, the transfer of 
mass and energy are obtained from the definitions of 
Schmidt and Prandtl numbers respectively. 


Thus, for mass transfer, r * y ^/Sc ^ 
and for heat transfer, 1' ^ * u 0 fi ^r©ff 






i 


2.5.2 Temperature of the mixture 

The temperature of the mixture, T, at a given point in the flow 
field, is obtained from known local values of the stagnation 
enthalpy ft and the composition of the mixture as follows: 


m j h i 


(26) 


where the species enthalpy h. is obtained by the method described 
in Section 5.2 on thermodynamic data. The fluid temperature is then 
obtained as described in Section 5.2. 

2.5.3 The ideal-gas equation of state 

For a given temperature, the pressure and the density are assumed 
to be related through the ideal gas-equation: 


pRT 


(27) 


where W,the mean molecular weight of the gas mixture, is given by 


W = 1/E (mj/Wj) 


(28) 


2 . 6 The Chemical-Equilibrium Model 


2.6.1 I nt r oduct ion 


The chemistry involved in the hydrocarbon-oxidation process (Sec. 
2.2.1) will now be described. The oxidation reaction is assumed 
to be a single-step one and results in some product species. These 
species are in chemical equilibrium at the prevailing pressure and 
enthalpy. Their concentrations are obtained from a model which 
is based on the minimization of Gibbs free energy. The method 
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has been described by Gordon and McBride (Ref. 2). 


2.6.2 Species considered 

The equilibrium products of combustion are considered to consist 
of the following species: CO, C0 2 , HgO, 0, H, H 2 , and OH, together 
with unburnt 0 2 and CH 4 , and Ng. The last of these is assumed 
to be inert in the equilibrium reactions.* 

2.6.3 Equations of chemical-equilibrium 

The chemical-equilibrium equations to obtain the concentrations 
of the equilibrium-product-species have been discussed in 
detail in Ref. 2. Here the basis of their derivation will be only 
briefly described. The condition of chemical equilibrium is the 
minimization of Gibbs free energy subject to the following 
constraints: (a) mass balance for the elements present in the 
system; (b) specified enthalpy and (c) specified pressure. Since 
the resulting equations are not all linear, they have to be solved 
by an iterative procedure. The numerical method of solution 
of these equations is described in Section 3.5. Here the basic 

steps for obtaining the chemical-equilibrium composition are 
considered . 

2.6.4 Procedure for obtaining chemical-equilibrium compositions 

The basic steps for obtaining the concentrations of the species 
CO, C0 2 , H, H 2 , HgO, 0, and OH are: 

(\j 

• The stagnation enthalpy, h, the mixture fraction, f, and 
the mass fraction of unburnt fuel, m fu , are obtained 


* N 2 is of course not inert in the NO x -formation reactions; but 
these will be treated separately (Sec. 2.7). 
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■ r ■ I jTL J 


from the solution of the respective partial differential 
equations (7, 8, and 6). 

The mass fraction of unburnt oxygen, m , is obtained 

UA 

from: 

f - f st 

m ox = < ra fu - ' — )a (29) 

1 “ x st 

where f ^ is the stoichiometric value of f. Should the 
value of m be less than zero, during the iterative 
solution, it is set equal to zero (or a small quantity 
for programming convenience) . 


The mass fraction of the equilibrium-product-species 
m , is given by: 


V = (:E ' m fu> (1 + s) 


(30) 


The mass fraction of nitrogen, m w is given by: 

INr, , 


nu T = 1 - m,... - in. - m - E m. 


N 


‘fu ox pr J 


(31) 


where the summation is carried out over the species N, 
NO, N0 2 , and N 2 0 which are determined through rate-con- 
trolled reactions. 


The enthalpy of the equilibrium-product-species, h 

px 

is then : 


where the summation is over all species other than the 
equilibrium-product-species (CO, C0 2 , H, Hg, HgO, O, and 
OH). 

• For a given value of enthalpy (h ) and pressure the 

Jr 

equilibrium-product-species concentrations for stoichio- 
metric adiabatic combustion are obtained by means of 
interpolations using polynomial fits* in accordance with 
the method described in Section 3.5.4. These concen- 
trations are then multiplied by a factor so that they add 

to m i i . e . 
pr ’ 

m CO + m C0 2 + “H + “UgO + ra O + m 0H = m pr (33) 

• At this stage, the mass fractions of all species except 
the pollutant-species N, NO, N0 2 , and NgO have been 
determined. Since the latter are present in small 
amounts the values of these from the previous iterative 
sweep are used, and the temperature of the mixture 
obtained as per Section 3.7. 

• The next step is the determination of the mass fractions 
of the pollutant species N, NO, NOg, and NgO. This is 
considered in the following section. 

2 . 7 Treatment of Chemical-Kinetics 

2.7.1 Introduction 

Oxides of nitrogen are formed during the course of combustion 

* The determination of the polynomial coefficients is done external 
and prior to the main computer code. 
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reactions involving air as oxidant. These species are considered 
separately from the equilibrium species since their formation 
is governed by much slower kinetically-controlled reactions. The 
determination of the concentrations of these pollutant species 
involves a treatment of chemical-kinetics. This is discussed in 
the following sub-sections. 

2.7.2. Species and reactions 

The chemistry involved in the formation of nitrogen oxides will now be 
described. The model employed incorporates one of the 
simplest and most widely used mechanisms for calculations in- 
volving nitric oxide formation, namely the Zeldovich mechanism: 

1. N 2 + 0 $ NO + N (34) 

2. 0 2 + N $ NO + 0 (35) 

In addition to the above two reactions, the following reactions 
with the species N 2 , 0 2 , 0, H, and OH may be involved in the 
formation of the oxides of nitrogen, and are considered in the 


present work: 

3. N + OH S NO + II (36) 

4. H + N 2 0 $ OH + N 2 (37) 

5. N 2 0 + 0 $ NO + NO (38) 

6. NgO +M+N 2 +0+M (39) 

7. M * N > 0 £ M + NO (40) 
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8 . 


(41) 


N0 2 + O $ NO + 0 2 
9. N0 2 + M t 0 + NO + M (42) 

The choice of these reactions is based on a study of published 
literature (e.g. Ref. 6). Although some of these reactions 
have large rate constants, they usually involve species which are 
present in very small concentrations; hence their contribution 
towards the formation of nitric oxide is often small compared to 
that of reactions (1) and (2). Under fuel-rich conditions, 
reaction (3) may be significant. 

2.7.3. The chemical-kinetics equations 

The chemical-kinetics equations have been discussed in detail in 
Ref. 3. These equations are used to determine, the concentrations 
of the pollutant species. Here the equations will be only briefly 
described. The conservation equation for species j has been 
given in Section 2.3 (equation 6). Attention is now centred on the 
source-term in this equation. 


The source S . of species j is the mass rate of creation of species 

J 

j by chemical reaction and is given by: 


s j - " <“i 3 - a h> (r j - R -d> 

j= 1 


(43) 


The forward rate, R . of reaction j , is given by the Arrhenius 

J 

expression: 


R N 01 i 

Rj = 10 j T exp(-T actj /T) (p aj J n (P o fc ) 

k=l 


( “'kr a "kj ) 


(44)* 


* See nomenclature for explanation of symbols. 
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The backward rate, R_^ of reaction j , is given by a similar 
expression. 

In the calculation of rates of production of N, NO, NOg, and NgO 
by means of the above equations, the concentrations of the 
other species (which have already been determined by a chemical- 
equilibrium analysis) are assumed to remain unchanged. The 
justification for this assumption is that these species are mainly 
produced by reactions which are considerably faster than those 
involving N0 x production; therefore, the amounts of these species 
consumed (or produced) by the NO - reactions are negligible. The 
numerical method of solution of the species-conservation equation 
(6) is presented in Section 3.6. 

2.7.4 Procedure for obtaining chemical-kinetics compositions 

The steps for obtaining the concentrations of the species N, NO, 
NOg, and NgO, are: 

a. 

• The variables u, v, h, m fu , m Qx , and the mass fractions 
of the chemical-equilibrium products are first obtained 
(Section 2.6.4). 

• The species-conservation equations are solved to obtain 
the mass fractions of N, NO, NOg, and NgO. 

• The mass fraction of nitrogen, m N , is adjusted so that 
all the species mass fractions ad § to unity. 

m, T = 1 - E m., j = 1, NS except for N„. (45) 

N 2 j J 
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3. THE NUMERICAL SOLUTION PROCEDURE 
3 . 1 Introduction 

From the preceding sections it is seen that the differential 
equations under consideration are all non-linear and coupled 
together. For the flow under consideration there is no possi- 
bility for obtaining analytical solutions to them* and numerical 
methods have to be used. In this case a finite-difference 
technique is used which combines the main features of the SIMPLE 
algorithm of Patankar and Spalding (4) and the NEAT algorithm of 
Spalding (5); these features include 

• solution of a suf f iciently-general single form of 
differential equations; 

• use of pressure and velocities as the main hydrodynamic 
variables ; 

• use of the pressure-correction technique for satisfying the 
continuity equation; 

• provision for use of non-uniformly spaced grids; 

• use of staggered storage locations for velocities; 

• derivation of finite-difference equations by integrating the 
differential equations over finite control volumes; 

• use of an upwind-differencing scheme for convection terms and 
a central-differencing scheme for diffusion terms; 

• enforcing of reciprocity of convection and diffusion fluxes 
through common walls of adjacent cells; 
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• line-by-line solution of the finite-difference equations; 

• updating of all dependent variables, in sequence, on a line; 
and 

• frequent adjustment of velocities and pressures in order to ensure the 
satisfaction of overall mass conservation and overall momentum 
conservation, across sections. 

3.2 The finite-difference grid 

3.2.1 The cross-stream arrangement 

The values of the fluid properties are calculated on a grid of 
which the nodes lie at constant values of the axial distance x and 
the radial distance r. Fig, 2 shows how the r-coordinate 
stretches from the value 0 at the symmetry axis to the value R 
at the wall of the duct. Between r=0 and r=R lie NY-2 "grid 
points", i.e. arbitrarily chosen locations at which the 4> values 
are computed; these are indicated by #'s along the base of Fig. 2, 
through which pass vertical full lines. NY is the total number 
of r nodes, including the boundary values 0 and R. 

Halfway between adjacent pairs of grid points in the range 2 to 
(NY-1) are drawn vertical broken lines, dividing the whole r range 
into (NY-2 ) intervals. The value of any dependent variable <{> is 
supposed to be uniform within the interval; the fact is illustrated 
by the step-like <f> -distribution of Fig. 2; the horizontals stretch 
from one broken line to the next. 

The <}> ' s in these intervals are distinguished by subscripts: cj> 2 , 

$3 > . • $i_i , , 4> i+1 . . •<1 ) N y_ 2> ^NY-1 * The bounda:i;, y values are (f> 1 

and cf> NY • 
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3.2.2 The longitudinal grid 

The distribution of the longitudinal grid is similar to the cross- 
stream arrangement. The value of Ax, the increment in x between 
successive grid nodes, can be varied at will. As is usual in 
numerical work, small values of Ax (and also Ay) increase 
accuracy, but also computer time and storage. The right choice 
always represents a compromise. 

3 . 3 The Finite-Difference Equations 

3.3.1 Motive and method 

A five-node finite-difference relation will now be derived 
connecting the value of a dependent variable I. at a node P with 
those of:- (a) its two neighbours at the same x-value, <Jk + ^ and 
4> i_ 1 ; (b) its two neighbours at the same r-value, <J> E and <J>^. This 
is to be a linear formula of the form: 

D i = A i ♦i+i + B i *i-i + a e *e + A W ♦w + S U (46) 

where A^, A^, etc. , will be treated as constants, the expressions 
for which are derived by integration of the differential equation 
(10) over a control volume surrounding the node where <{k prevails. 
There will be an equation like (46) with individual coefficients, 
for each grid point, other than those on the boundaries, and for 

r\j 

each of the dependent variables, u, v, h, m fu , and f. 

In equation (46), the <p value at the W (upstream) station can be 
regarded as known. The <J> values at the E (downstream) station 

* and are also alternatively referred to as <pp, <f>^, 

and 4>g respectively; A^ and as A N and Ag respectively. 
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ure regarded as temporarily known, either from the results of a 
previous iteration, or from an initial 'guess' or estimate. It 
is therefore useful to combine the last three terms on the 
right-hand side into one, thus: 

C i A e ^E + A W + S u ( 47 ) 

The result is an equation which focusses all the attention on the 
unknown <}> ’ s namely : 

D i *i “ A i +i+l + B i *1-1 + C i (48) 

It is now necessary to obtain expressions from which A^, B.^, 
and D i can be evaluated, by integrating the differential equation 
for <|> over an appropriate control volume. 

3.3.2 Integration over a control volume 

Now the integration of the differential equation for <f> , namely 
equation (10), over a control volume will be considered. Fig. 3(a) 
illustrates the control volume and its neighbouring ones which 
must be considered. First, some general remarks are made 
about the locations of the control volume faces. The two control 
volumes near the boundaries differ from all the others in that, if 
the lower edge is denoted by i-J and the upper by i+£ : 


for i = 2 : r i_£ ~ for i = NY- 1 : r i+£ = R (49) 


whereas for all the other control-volume boundaries the appropriate 
formulae are: 
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r i-J = * (r i-l + r i> ; r i +} “ * < r i + *W (SO) 

Similar definitions apply to the grid in the x-direction: 

for j=2: x. , = 0; for j = NX-1 : x.., = X (51) 

J~a j+4 

where X is the total x-dimension of the integration domain, whereas 
for all the other control-volume boundaries the appropriate formulae 
are: 

X D-1 = * (X j-l + X j )j X j+i = * (X j + X j+1> (52) 


With these definitions, it follows that the sum of all the control- 
volume "heights" and "lengths" equals that of the whole grid; thus: 
NY-1 NX-1 

4 (r i + * - W " R; (x J+ i - x j-j> ■ x (53) 

Thus, if conservation is satisfied for each of the individual 
control volumes, it will surely also be satisfied for the flow 
domain . 


It is now necessary to apply the ^-profile assumption of Fig. 2 
and to introduce further assumptions permitting evaluation of the 
gradients and other terms in equation (10) so as to arrive at 
expressions for A^, B^, and of equation (48). 

( a) Diffusion and convection terms 


The west face of the cell with area a w , Fig. 3(b), is first con- 
sidered. The finite-difference expression for the diffusion 
flux is given by: 


a w J diff , <j> ,w ” a w 


V,w 


w 


(54) 


where 


r <j> , w “ 4 ^ r 4) , W + I ’c{),P ) 


(55) 


29 


The finite-difference expression for the convection flux 
^conv f <J> ,w is Biven by: 


aJ i = u a <b p 

w conv,<J>,w w w v w K w 


( 56 ) 


where 


A p = d>,„ p.„ for a u > o 
Y W W w w 


= <f> p P p for a w u w < o 


(57) 


Expressions (57) are the consequence of the use of an upwind- 
differencing scheme for the convection terms. 

By combining the diffusion and convection fluxes, the total flux 
through the west cell face, ^ w is obtained as: 


For C > o : a . J, 


= (D w + C - D 


w - v w°tot,(|),w ” v w w w' Y W w Y P 


(58) 


For C w < o : » Vw “ (D w ' C w^P 


(59) 


In the above expressions: 


D w “ r 4> , w a w/ 5 w 


^w = u w a wPw 


( 60 ) 

(61) 


and p w = P w for C w > o 


= Pp for C w < o 


( 62 ) 
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Similarly, for the east cell-face: 


For CL > o : a J 


e u tot,ij) ,e = • D e*E + (D e + c e> ,| 'P 


For C e < o : a e J tot ^ iB » - (D e - C e ) 4> E + D e * p 


( 63 ) 

( 64 ) 


In the above 


D e 5 r $,e a e/ 6 e 


C 3 u a 
e e e e 


( 65 ) 

( 66 ) 


and p e = p E for < o 


e 


Pt, for (L > o 
P e 


( 67 ) 


Corresponding expressions for the total fluxes may be devised for 
the north and south cell faces. 


Let : A^ = 


coefficient of <ji^ in the 
expression for a w «J tot ^ w 


A E 5 


coefficient of in the 
expression for a e J tot>( j^ e ' J etc. 


In terms of the P’s and C's, these can be conveniently 
expressed as: 


max (D w , 


( 68 ) 


A e = max (P„, D o - C^) , etc. 


e’ e 


( 69 ) 
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where max (A,B) denotes the larger of A and B. 


Then, the volume integral of the LHS of equation (10) may be 
written as: 

fff ( LHS of 10) dV 
vol 

~ ~ a w J tot,<f>,w + a e J tot,<j>,e ” a s J tot, <f> , s 


+ a J , , , 

n tot , $ , n 


l <Vp - Vi) - {C w - C e C n +C s> 


(70) 


where l stands for the summation over the four nodes N, E, W 
and S . 

Now, the terms in the curly brackets represent the net mass flow 
into the cell and should be zero by continuity. Therefore the 
following equation may be written: 


fff (LHS of 10) dV 
vol 


= <f>p s 


A i - Vi H 
1 1 


(b) The source ^erm 


(71) 


In general the source term in equation (10) is not zero. Moreover, 
its composition may vary enormously with different (})'s and for best 
results different practices may need to be used for the evaluation 
of the integral of the source term over the cell volume. There- 
fore, generally it is assumed that the volume integral can be 
split into two terms as: 
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•where S and S p are two functions whose composition depends on 
the particular <J> considered. If there is no dependence of the 
integral on $ p> s p can be put equal to zero. 

There are many occasions where it is possible to have several 
different arrangements for the two functions S u and S p . In 
these cases, a simple rule is to choose an arrangement which gives 
a negative value to S p ; this helps to promote numerical stability, 
When the particular cfs under consideration is known to assume 
positive values only (e.g. species concentrations), one should 
in addition try to ensure that S u is always positive. 


(c) Final form of the finite-difference equation 

Equating expressions (71) and (72) gives the finite-difference 
equation for <J> p as: 


H = 


Vw + Vb + Vn •*■ Vs + S U 

(A^ + + A w + A r ) - S p 


(73) 


In the above equation the A's are given by: 


A w » max (D w , D w + C w ) 


A„ = max (D rt , - C ) 
E v e’ e e 


A N max ^ D n’ D n “ V 


Ag « max (D g , D g + C g ) 


(74) 

(75) 

(76) 

(77) 


The D’s and C's in the above equations are given by; 


D w 5 i (r <(i,W + a «/*w 

D e S * < r *,E + r *,p> a e^e 

D n E » < r *,N + r *,P> V 5 n 

D s = * < r *,S + %,P> a s / S s 


C w 5 

C_ = 


n 

C„ s 


a u p 

w W K W 
a 

e e e 

a„v„p„ 
n n n 

a v p 
s S M S 


(78) 

(79) 

(80) 
(81) 

(82) 


(84) 

(85) 


It is worth remarking that the A's are always positive; this has 
been ensured by the use of upwind differencing in the convection 
terms. 


Later it will be shown that staggered locations for the velocities 
will be used. In accordance with this, velocities are actually 
stored at locations marked by arrows in Fig. 3; in this case the 
velocities will be referred to by capital subscript according 
to the following: 


u e 5 U P 


u 


w 


= u 


W 


n 


.s' Vp and 


v s = 


The u-velocities are stored on the east face of the continuity 
cell and v-velocities on the north face of the cell. 


34 



3.3.3 The momentum equations 

The finite-difference momentum equations have the same final form 
as that for the general <J> equation, viz. equation (73), However, 
in the derivation of the equation, two differences in practice 
may be identified. Firstly, different finite-difference cells 
are used. This arises because of the adoption of staggered 
storage locations for the velocity components. Thus, the finite- 
difference equation for u is derived by integrating the x-momentum 
equation over the cell shown in Fig. 4(a). This cell is formed 
by two adjacent constant x-grid lines and two lines drawn mid-way 
between adjacent constant-r grid lines. A different but similarly 
constructed cell is used for v, as shown in Fig. 4(b). 

The second difference lies in the way the diffusion and convection 
terms (i.e. D p , D w , C e , C- w ) through the cell faces are evaluated. 
These terms, for a velocity cell, are all obtained from those for 
the $ cells which overlap the particular velocity cell in question 
Thus, the term, diffusion or convection, through the west face of 
the u cell, Fig, 4(a), is obtained as the arithmetic mean of the 
corresponding fluxes through the west and east faces of the 
continuity cell enclosing the node P, i.e. for a u Gell (Figure 
4(a)), 

A w = max »<D e + o w ). 1 (D g + D ff ) - i (C Q + C^)} (86) 

A e - max Ci(D ee + D e ), i (D ee + D„) - J (C ee * CJ} (87) 

C_ = convection ilux through the east face of the continuity cell 
surrounding node E (Fig. 4(a)). 

D — diffusion flux through the east face of the continuity cell 
00 

surrounding node E (Fig. 4(a)). 

Exactly similar procedures are adopted for the other cell faces 
and for the v-cells. This practice offers two main advantages: 
computational simplicity, and, more consistent satisfaction of 
the conservation principle for the different types of cells. 
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3.3.4 The pressure-correction equation 

A special practice is adopted for the solution of the continuity 
equation. The sequence is as follows: 

(i) Using an estimated (or previous iteration) pressure field p*, 
the x- and r-momentum finite-difference equations are 
solved. This gives a first approximation to the velocity 

field (designated the 1 starred 'velocity field, u* and v*) . 

This field in general does not satisfy the continuity equation. 

(ii) Correction u* , v’ and p’ to the starred velocity field (a*, 
v*) and the estimated pressure field p* are derived from the 
continuity equation. These corrections are added to the 
starred fields: 

u = u* + u' 

v = v* + v 1 

p = p* + p' 

This results in a velocity field which is in local continuity 
balance. 


( 88 ) 

(89) 

(90) 


(iii)In addition to the above steps, block adjustment techniques 
are used at intermediate stages (see Sec. 3.8) in order to 
obtain integral mass and momentum balances. 

The derivation of the equations for the corrections u* , v ? , and p’ 
will now be considered. 

Figure 3(b) shows a cell around the node P together with the 
velocities crossing its four faces. The velocity u D is corrected 
for continuity using a correction u£ which is assumed to result 
from changes of pressure at locations on both sides of it, i.e„ 
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Pp and Pg, according to: 



(91) 


Now, the finite-difference equation for u p can be written as 
(general form being equation (73)): 

(JAj. - S p )u p = EA lUi + {a e (p p -p E ) + S'} (92) 

i l 

£ 

where ^ denotes the summation over the four neighbouring nodes N, 

E, W and S; the S u component of the source tei’m has been split into 
the terms inside the curly brackets to show the pressure-gradient 
term explicitly; and a Q is the area of the east cell-face. Assuming 
that all the coefficients in (92) are not affected by changes in 
the p’s: 


lI P “ ^Dp* (p p ~ p P 

where D = EA . - S 
p i p 

Other velocity corrections can be derived similarly. 


(93) 

(94) 


By requiring the satisfaction of continuity (i .e . equation (5) 
integrated over a <j> cell), 


a e p e <-4 + U P> - a w p w < u i + 4 ~> * a n p n < V P + V P> ' 


- a s p s (V S + V S> = 0 


(95) 


where p, and are as defined in equations (62) and (67); p and 

W 0 “ 

P s are similarly defined. 
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By substituting velocity correction equations, such as (93), for 
u^, Vp and Vg into equation (95) an equation for the pressure- 

correction p’ is obtained. The equation will have the standard 
fox’m, i , e. : 

D P Pp = |Vi + S u < 96 > 

where S denotes summation over the four neighbouring nodes, 
i 

Thus the above equation can be solved by the same techniques as 
used for all the other finite-difference equations. 


3.3.5 Section-wise momentum balance 


During the solution of the momentum and continuity equations, 
section-wise momentum balances are performed in order to procure 
integral conservation of momentum across the strip of finite- 
difference cells currently being solved for. The procedure is 
termed as SNIP i.e. Start the momentum equations with a New 
Integration for Pressure, since it provides a starting guess of 
the pressure field (i.e. the p* field of Sec. 3.3.4) for the 
solution of the momentum equations. 


The procedure consists in adding up all the terms of the x- 
momentum finite-difference equation along a line of constant x 
and making this sum zero by block adjustment of pressure. The 
formula for the adjustment of pressure is obtained from the x~ 
momentum finite-difference equation (92) as: 

Z[ J(A rSp ) Up - IA^-8-] 

> , J -X i 

A P “ - 

(Total area of strip normal 
to the x-direction) 


( 97 ) 


where 2 denotes the summation over all cells at the x-location 

j 

under consideration and 2 denotes the summation over the four 

i 
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neighbouring nodes. 


It should be noted that Ap is added to all pressures downstream of 
the column of cells under consideration. An option is provided for the user 
to switch the above procedure off by setting the index ISNIP=1 . 

3 . 4 Solution of the finite-difference equations 
3.4.1 Solution procedure 

The numerical procedure used to solve the finite-difference 
equations is an iterative one, requiring the flow field to be 
swept repeatedly until termination, either through having 
satisfied the convergence test, or through some other control. 


In a sweep of the field, strips of finite-difference cells along 
constant-x grid lines are considez'ed, one by one; hence the 
procedure progresses line-by-line. The extent of the field 
covered during forward and reverse marches is shown in Pig. 5. At 
each line, all the dependent variables are considered, one after 
another, and, for each variable, finite-difference equations are set 
up, one for each of the cells on the line, Fig. 6. These finite- 
difference equations are solved before the next variable is con- 
sidered. Thus, the equation set, dealt with each time, consists 
of the finite-difference equations for all the cells along a grid 
line. Since all the finite-difference equations have the same 
general form of (73), the equation for one of the variables <J> 
can be written as: 


♦i <? 


A ij 


W = 


A ij*i 


+ s 




(98) 


In the above equation the subscript j refers to the cell on the 
jth constant -r grid line ; (j) . is normally calculated for all 
the control cells in the line viz. from, j=2, to j=N-l. The 
values for j equal to 1 and N are the boundary values, which 
must be specified, while the other values <f> on the line are 
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(a) Forward March 



(b) Reverse March 


Fig. 5: The extent of the field covered by the cross- 
stream TDMA during forward and reverse marches. 
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calculated. Symbol £ denotes the sum over the four neighbour 
nodes of j. * 

The above set of equations (98) which has to be solved for the 
unknown <j)’s is of a form which enables the solution to be 
obtained using the well-known tri-diagonal matrix algorithm 
(TDMA). Details of this method may be found, for example in 
Ref . 1 . 

3.4.2 Under-relaxation 

The solution procedure described above involves the solution of 
the finite-difference equations which are expressed in a linearised 
form. However the equations are not truly linear; therefore, 
an iterative solution procedure is required to continually 
update the coefficients until a converged solution is obtained. 

If the changes in the values of the variables from one iteration 
to the next are large, there is a possibility that convergence 
may not be achieved at all. To keep these changes sufficiently 
small, the dependent variables are suitably under-relaxed. Two 
forms of under-relaxation are described below. 

(a) Inertial under-relaxation 

The central idea in inertial under-relaxation is to under-relax 
the variables selectively at those locations where the source 
term in the equation is large compared to the convection and 
diffusion terms. At such locations, changes in the source term 
produce large changes in the variable, which may then result in 
divergence. Inertial under-relaxation limits the changes in 
the variable by imposing a gradual change in the source term. 

This is achieved by adding a term a((j>°-<f>p) to the source term, 
where cj>° is the previous iteration value of <J> p and ’a' is a 
constant. The additional term has the opposite sign of the ’ 
changes to the source term; and it therefore diminishes the 
extent to which the source term is changed. 
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When convergence is achieved 4>° ■+ <j> p , the additional term tends 
to zero; and therefore the solution obtained is the solution of 
the original equation. The calculation of the constant 'a' will 
now be described. 

Consider, for example, that the changes in <j> between successive 
iterations should be restricted to 5 per cent, 


i. e. 



0.05 


(99) 


For small Z A^cJk the finite-difference equation (73) for <j> p can be 
approximated by: 


(ZAi-Sp) cp p *S U 


( 100 ) 


If S° is the previous iteration value of S u corresponding to <J>°, 

and assuming (ZA^-S p ) to remain approximately constant, 
i 

(SAj-Sp) (<t>p-<t>°) % V S u° (101) 

The additional term a(tt>° -0p) is added to the right-hand side of 
this equation giving: 

(EAj-Sp) Up-* 0 ) % (S u -S u °) + aCA°-+p) (102) 

Therefore, from equations (99) and (102), 

S -S ° 

a + (DA -Sp) % 20 (-2-^-) ' (103) 

i <i> 
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Since (EA^Sp) is usually small compared to a, 


a ^ 


20 < s „-v> 


(104) 


This value of 'a* will limit changes in <{>p to 5 per cent. When 
oscillations or divergence are being observed, it is necessary 
to increase the value of ’a'. However, care is to be taken to 
see that the solution is not 'frozen' by excessive under-relaxing. 

In the present work inertial under-relaxation is employed only 
for the u- and v-velocities, since experience has shown that it 
is not necessary to under-relax the other variables. 


(b) Use of an under-relaxation factor 


The second method of under-relaxation is to consider the value of 
<j> to be a weighted mean of its current-iteration and previous- 
iteration values. 

This method is employed only for pressure and amounts to modifying 
equation (90) as: 

p = p* + Ctp p' (105) 

where a the under-relaxation factor lies between 0 and 1. 

Jr 

3 . 5 Solution of the Chemical -Equilibrium Equations 
3.5.1 Solution procedure 

The chemical-equilibrium equations were discussed in Section 2.6. 
They are solved by the procedure given in Ref. 2. The salient 
features of this technique are described next . 
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The Newton-Raphson iteration method is used to solve the 
equilibrium equations. The correction variables are (Nlit + 2) in 
number, where NLM is the number of distinct elements in the 
system being considered (there are three in the present case, 
i.e. C, 0, and H) . The corresponding correction equations are 
obtained after appropriate linearization as follows. 


(a) The correction equations for the conservation of elements 
are expressed in terms of the non-dimensionalized Lagrange 
multipliers, tt^ as: 

NLM NSE T T NSE T 

i=l ( k=l ** a J k ° k> **■ +< k=l a ^°k ,al ° ga n> 


NSE T h. NSE . g k 

+ a^ k a k (^JilogT = S a jk°k ( BT 3 • J" 1 * NLM ( 106 > 


(b) The correction equation for the reciprocal of the mixture 
molecular weight, a m Is: 

NLM NSE L NSE 

l { t a. k af. } it . + { 2 a. - a Hlog a 
i=l k=l 1K K x k=l m m 
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NSE 


Sk, 


(107) 


(c) The correction equation for temperature is based on an 

enthalpy balance condition (i.e., enthalpy of the products 
is specified) and is: 


NLM NSE 


h, 


NSE 


h 


x { k ^ x a ik°k ( Rf )} ir i + { R ^ X °k ( RT )} Aloga 


m 






! \ 1 


| | t < 

I t 


NSE 
{ £ a 
k=l 


k 


<¥> 


NSE 
+ £ 
k=l 


(sfe) 2 } AlogT 


k RT 


V NSE h. NSE h. g. 

" ~ k l x °k ( W> + k f 1 °k % ) %> (108) 

where h is the enthalpy (sensible & chemical) of the 
equilibrium-products and is obtained from equation (32). 

The correction equations (106), (107), (108) involve the unknowns 
’T i (i-1, NLM) , Alogcr , and AlogT. They are solved by a 
standard Gaussian elimination procedure. The correction matrix 
will become singular at the solution point when the coefficient 
of Alogo* in in equation (107) is identically zero. This potential 
singularity is avoided by a single interchange between the row 
involving the zero coefficient of Alogc and any other row (in 
practice, the row with the largest coefficient of Alogcr is 
selected.) All other diagonal elements are positive and do not 
require special treatment. 

The new values of the variables are then obtained as : 

lu g,_ NLM r 

Alogc k = (^) AlogT - (~) + Alogc? m + * aj k ^ k=l , NSE 

I* - 1 

( 110 ) 

loga. (k+1) « logo, (k) + n(Alogcr.) (k) , i=l, NSE (111) 

x i x 

loga m Ck+1) = logo m < k) + n(Alogcr m )< k) (112) 

logT (k+1) = logT (k) + n(AlogT) (k) (113) 
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where the superscripts indicate the iteration number, and n is an 
under-relaxation parameter (0<o*l), The determination of n and 
the convergence criterion are discussed in Section 3.5.3. 

3.5.2 Initial estimate of species mole-numbers and temperature 

The initial estimate of the species mole-numbers is based on complete 
stoichiometric combustion. Thus if x and y are the number of 
kg- atoms of carbon and hydrogen respectively, per kg of mixture, 
the initial estimate is given by: 


a C0 o x 

4 

a H 2 0 = y / 2 


(114) 

(115) 


All other mole numbers are set equal to a small number 10 


The initial estimate for temperature is obtained from an adia,batic 
enthalpy balance for the assumed composition and the given mixture 
enthalpy. The procedure is the same as that described in Section 
3.7. 

3.5.3 Under-relaxation and convergence criterion 

The self-adjusting under-relaxation parameter n similar to that 
of Ref. 2 is used here. This parameter is determined at each 
iteration from: 

n = minimum of (1, n 2 ) (116) 
where and n 2 are quantities which are defined below. 
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This causes the correction of the variables T, cr , and a. 

' m 1 

to be scaled so that none of the variables is increased by 
more than a factor of 1.22 (-exp(0.2)) on any one iteration. 
This is different from the definition of in Ref 2, which 
permits maximum increases by a factor of up to 7.39 (=exp(2)) 
on any one iteration. 

O 

(b) For species with (a^/cf m )<10 and Alogo^X), hg I s defined 
as : 

log (10 -4 ) - log (v ± /Q m ) 

Aloga jL - Alogcr m 

This scales all the corrections so that the species with 

—8 —4 

initially less than 10 increase to no more than 10 

A convergence criterion similar to that recommended in 
Ref. 2. is used. This is: 

(— -i) | AlogffJ <1 . OxlO -10 , i=l, NSE (119) 

a m 

and 

jAlogaJ *1.0xl0 -10 (120) 
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3.5.4 Polynomial fits for equilibrium-product-species concentrations 

The equilibrium compositions are represented in terms of poly- 
nomials of enthalpy at different pressures. The polynomial 
coefficients are determined in computations external and prior 
to the main computer code. The steps for obtaining these 
polynomials are now described. 

The equilibrium compositions are computed by the method of Section 

3.5.1 for several values of enthalpy at different pressures. 

At a given pressure, the logarithm of the equilibrium-species 
mass fraction is represented as a polynomial of enthalpy. 

There are two distinct polynomials (one over each of two ranges of 
enthalpy), both of third order, for each of the species. The 
logarithm of the species mass fraction is used since the variation 
in mass fraction over the enthalpy range is a few orders of 
magnitude (for species like 0, H, OH etc.). In the main code, 
when the equilibrium compositioii is required for a particular 
enthalpy and pressure the polynomials are used to calculate the 
species mass fractions. 

3 . 6 Solution of the Chemical-Kinetics Equations 

3.6.1 Solution procedure 

The chemical-kinetics equations were discussed in Section 2.7. 

They are solved by the procedure described in Ref. 3; it will be 
only briefly described here. 

The procedure involves a point '-by-point simultaneous solution 
of all the pollutant concentrations (i.e. N, NO, NOg, and NgO). 

The line-by-line procedure which is used to solve for other 
dependent variables (u, v, &, f , and m.j u ) is not suitable for the 
solution of the chemical-kinetics equations. The reason is that 
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the concentration of any pollutant species at a point depends 
more strongly on the concentrations of the other pollutant 
species at the same point rather than its own concentration at 
neighbouring points. The line-by-line procedure would, under 
such conditions, require an excessively large number of iterations 
to achieve convergence (e.g. Ref .3). 

The Newton-Raphson method is used to solve the chemical-kinetics 
equations. The correction equations for the species mole numbers 
are expressed, after appropriate linearization as: 


NSK 


M 


{ Vi s ik + s ( “ij - “kj - B -j a kj> A 1 °s CT k } 


M 

A P (a i*“ a i ) “ E " a "<> is=1 * NSK 


3=1 


i 3 13' ' 3 -3 


( 121 ) 


Equations (121) involve the unknowns Alogc^ (k=l,NSK). The 
equations are solved by a standard Gaussian elimination procedure. 
All the diagonal elements of the correction matrix are positive, 
so that no matrix conditioning is necessary. 

The new values of the variables are then obtained as: 

logd i (k+1) = logcr i (k) + n(Alogcr i ) (k) , i=l , NSK (122) 

where the subscripts indicate the iteration number and n is an 
under-relaxation parameter (0<ri£l). The determination of n, 
and the convergence criterion, are discussed below. 


3.6.2 Initial estimate of the mole numbers of pollutant species 

The initial estimate is obtained by setting the concentrations 
of the pollutant species at any grid node equal to those at the 
corresponding upstream node. For the very first set of cross- 
stream points, the initial estimates of the concentrations are 
set to a small number, 10 to 10“ . This procedure is followed 

when sweeping through the integration domain for the first 
time. For subsequent sweeps, the values at the particular grid 
node from the previous sweep are used as the initial estimates 
for the solution of the correction equation (121). 

3.6.3 Under-relaxation and convergence criterion 

The self-adjusting under-relaxation parameter of Ref. 2 is used 
without modification (see also Section 3.5.3). The solution at 
any grid node is assumed to have converged when the concen- 
trations of the NO -species remain within a certain value from 
one iteration to the next. 

3.7 Solution of the Auxiliary Equations 

The auxiliary equations were discussed in Section 2.5. Of these 
only the equations dealing with the temperature of the mixture 
require an iterative solution procedure; the other equations 
involve straightforward algebraic expressions. All heat 
transfer effects affect the enthalpy equation which in 
turn affects the fluid temperature according to equation (146) of 
Section 5.2. 

The temperature equation (26) is solved by the Newton-Raphson 
iteration method. The Newton-Raphson correction equation for 
temperature is: 


(124) 


* 


T =r T 

i k+l *k 


where T, 


W 

c P j (T k> 


+ &T fc 

„ th 

= the temperature at the k iteration 

5 the enthalpy of species j at temperature T k 

5 the constant pressure specific heat of species 
j at temperature T k (see Section 5*2). 


Convergence is monitored by computing j AT k /T k+ ^ | at each iteration; 
and, when its value falls below a prespecified limit, the iteration 
is terminated. 

3 . 8 Summary of the solution procedure 

Now that the main features of the finite-difference solution 
procedure have been described, it will be useful to summarize 
the main steps involved: 


(1) At the start Ui's and c}> 0 's are known (Fig.?); if this strip 
of cells is at the boundary the ui's and $ 0 's are known from 
the boundary conditions; otherwise they are known from the 
solution at the previous strip. The pz ’ s are 'guessed' 
(see step 8 ). The problem is then to determine 113' s, vz's, 
pa's, and $2 ' s. 

(2) The 113's are guessed so as to satisfy overall continuity 
for the strip. The p 4 's are then estimated (based on 

the guessed pa’s) so that overall momentum is satisfied for 
the strip, with assumed Ua's. 

(3) The x-momentum finite-difference equation is solved for 
u 3 ' s . 
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(4) Overall continuity is checked at Section 3 and the us 's 
obtained in Step (3) are all adjusted by a uniform amount 
to satisfy overall continuity. 

(5) The r-momentum finite-difference equation is solved for V2's. 

(6) The finite-difference equations for all other variables <f> are 
solved to obtain the <j> 2 ' s. 

(7) Continuity imbalances for individual cells at 2 are checked 
and the pressure-correction equation is solved; corres- 
ponding adjustments are then made to ua's, V 2 ' s and p 2 's. 

This results in ui's, V 2 's and U3*s being in overall and 
local continuity balance. 

(S) Finally, the pi* ' s are adjusted by a uniform amount (as in 
Step 2) to ensure overall momentum satisfaction for the 
strip. These pi*'s are used as the 'guessed' values for the 
solution at the next strip. 

(9) The solution then advances in the x-direction to the next 
strip. This continues until the whole flow domain has been 
swept . 

(10) These sweeps are repeated until convergence is achieved. 
Facility is also provided to repeat the solution at a given 
line (i.e. perform iterations at a line). These iterations 
are terminated when the residues in all the equations being 
solved fall below a prespecified small value; or when the 
number of iterations exceeds a prespecified maximum value. 
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4. FURTHER FEATURES OF THE CALCULATION PROCEDURE 
4. 1 The Treatment of Wall Boundaries 

The wall boundaries are treated by including the wall shear stress 
in the equation for the velocity parallel to the wall; and by 
setting the velocity at the wall to zero (the no-slip condition). 
The treatment is similar to that employed in References 7 and 
10 . 

The wall shear stress t is given by: 

x = s (pu 2 ) NW (125) 

where the subscript NW refers to the near-wall node. 

The quantity s is the shear-stress coefficient and is given by 
(Reference 7): 

s * - - 

An (ERs*) (126) 

where E = constant (taken to be 9.0); 

K = von Karman constant (taken to be 0.435); 

R = Reynold’s number = (puAy/p^)^; 

Ay = distance of wall from the near-wall node; 

= laminar viscosity. 

The shear stress is incorporated into the finite-difference 
equations by linearization of the term pu 2 as p|uju. Details may 
be found in Reference 7. In order to solve eq. (126) for s, a value 
of s is guessed and substituted in the RHS of eq. (126) to give 
a better estimate of s. The process is repeated until the values 
of s from one step to the next remain within 0.01%. 
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4.2 The Treatment of the Inner Wall 


The effect of the inner wall is introduced by modifying the 
source terms of the u-momentum equation at the nodes adjacent 
to the inner wall. The source-term modification is done to 
include the effects of the wall shear stress as per the discussion 
of Section 4.1. 

4 . 3 The Treatment of Heat Transfer 
4.3.1 Heat Transfer processes considered 

In this section the inclusion of heat transfer effects into the 
solution procedure is described. These effects enter as boundary 
conditions in the stagnation enthalpy equation. The following 
modes of heat transfer are con^J dered in the present work: 

(i) convective heat transfer from hot combustion gases to passage walls; 

(ii) convective heat transfer from hot walls to colder inlet fuel-air mixture; 

(iii) axial wall conduction; 

(iv) wall to wall radiation; 

(v) free and forced convection from outer wall to surroundings ; 

(vi) radiation from outer wall to surroundings. 

The radiant heat exchange between the flame and the walls is 
ignored since the methane-air flame has a low emissivity and since 
the mean beam length in the present case is small. 

The inclusion of the heat transfer effects involves appropriate 
modifications of the source terms in the stagnation enthalpy 
equation at the inner and outer tube walls and at the end wall. 
These are described below. 


k-Ll. .UJ-.I I U 




4.3.2 Heat transfer at the inner tube wall 

The heat transfer effects at the inner tube wall are introduced 
by modifying the source terms for the finite-difference cells at 
N, P, and S (Fig. 8) at the x-location currently being solved for. 
The various heat transfer processes are considered individually 
below. 

(i) Heat transfer between wall and gases : 


For heat transfer between N and P, the overall heat transfer 
coefficient q is given by (Ref. 11): 


1 

■v* TT 

" 1 , 0 U 1,0 


i + * n < r iW 
r l , 0 h l , 0 k 


(127) 


where k is the conductivity of the wall material (stainless steel) 
and h^ ^ is the convection heat transfer coefficient. 


For heat transfer between S and P, the overall heat transfer 
coefficient ^ is given by: 


r l,i U l,i 


r l , i h l , i 


k 


(128) 


In the above equations, h^ i 
cribed Stanton numbers St^ i 


and h^ q are calculated from pres- 
and St^ q : 


1,1 

- st l,i 

p S I d s ! 

l°p 

(128) 

1,0 

= St l,0 

P N I%I 


(130) 
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where U 0 and U M are the velocities parallel to the wall at S 

u JN 

and N respectively; and p is the density. 

The values of the Stanton numbers in equations (129) and (130) 
are assumed to be 0.003, which in the authors' experience is 
typical of the flow situation being considered*. 

The specific heat CL appearing in the above equations is assumed 
to be constant (=1100 J/Kg.K). It should be noted that it is 
possible to calculate C p from the local values of temperature and 
composition, but in view of the other approximations involved, 
it is not worth going into this complication. 

Finally, the heat fluxes are included in the finite-difference 
equations by augmenting the source terms of the enthalpy equation 
at nodes N, P, and S as: 

Su N - Su N + u io r l o A x(Tp-T N ) (131) 

Su p = Su p + C 10 r 10 ix(T N ) + Oj^iAxCTg) (132) 

SPp = SPp - U 1)0 r lj0 Ax - 0 1>irijl Ax (133) 

Su S " Su S + u i,i r i,i Ax( W < 134 > 

(ii) Axial wall conduction 

This is included in the finite-difference form of the enthalpy 
equation by modifying the source term at point P as: 

SU P - SU P + <W + aq <V T P> (135) 
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* Since the writing of this report the program has been extended 
to compute the Stanton numbers locally. The corresponding update 
to the program is given in Appendix E. 


where A A = 

east 

face area of the cell at P 


Ax^- 

X E 

X P 

(136) 

Ax 2 = 

X P " 

X W 

(137) 


Also, the east-west finite-difference coefficients (i.e. A E and A w 
of equation (73)) for node P are set to zero. 

(iii) Wall to wall radiation 

The treatment of Ref 11 for radiant heat exchange between two 
long, gray, coaxial cylinders is followed. 

Therefore, the enthalpy-equation source term at P is modified as: 


SU p = 

Su p + Vd 



(138) 

where Q rad 

°^WP ~ 

T P> 



1 ' + 1 

(I - 

s 

1) 

(139) 


A P°1 A WP 

O' 

= Stefan-Boltzmann 

constant ; 


A p 

" 1 qA?\ j 



(140) 

A WP 




(141) 


T 

WP - temperature of duct wall at same x-location as P; 
r 2 i = inner radius of duct wall; 
e - emissivity of inner duct wall material; 
e D = emissivity of outer duct wall material, 

4.3.3 Heat transfer at the outer tube wall 

The heat transfer effects at the duct wall are introduced by 
modifying the enthalpy source terms at the nodes WP and WS (Fig. 9). 
The nodes WW, WP, and WE actually lie on the inner surface of the 
duct wall (these are the nodes corresponding to i=NY, Fig. 2); 
however, for the purpose of heat transfer calculations, the 
enthalpy and temperature associated with these nodes are 
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' 2*0 



Fig. 9: Heat transfer calculation at the outer 
duct wall. 
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assumed to be the values at the middle of the duct wall (i.e. 

WE', WP', WW'), Also the TDMA solution for the enthalpy 
equation is extended to include WE', WP', WW' as internal nodes. 

The various modes of heat transfer are summarised below: 

( i ) Heat transfer between wall and gases in the duct : 

The method of treating this is identical to that discussed in Sec. 
4.3.2(i) above. Again, the Stanton number is assumed to be 0.003. 

(ii) Axial wall conduction 

The method of treating axial wall conduction is identical to that 
discussed in Sec .4 . 3 . 2(ii) above. 

( iii ) Wall to wall radiation 

This has also been discussed in Sec 4. 3. 2 (iii) above. Its inclusion 
involves modifying the enthalpy source term at WP 1 as: 

Su WP' ~ Su WP' “ Q rad (!42) 

where Q rad is given by equation (139). 

(iv) Free and forced convection from outer wall to surroundings 

Since the flow is assumed to be axisymmetric , to consider free 
convection, the axis of the duct must be vertical; to consider 
forced convection, the axis of the duct must be parallel to the 
external free stream in which the duct is placed. 

A brief study of the literature (e.g< Refs. 11,12) shows that no 
simple correlations for calculating the free and forced convection 
for the above conditions exist. Most of the cases dealt with in 
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these references are for a cylinder with its axis normal to the 
free stream. 

Therefore, in order to calculate the free and forced convection 
a prescribed Stanton number is assumed; again a value of 0.003 
is assumed for lack of more accurate information. The inclusion 
of free and forced convection involves a modification of the 
enthalpy source at WP as: 

SUyjp = Su WP + St 2,0 p l u cJ C p (T surr' T WP ) (143) 

where u^ = the free stream velocity to which the duct is 
subjected; 

T surr = surroundings temperature. 

( v) Radiation from outer wall to surroundings 

This is included by modifying the enthalpy source term at WP as: 

Su WP = Su WP * CTe ^ T surr “ T WP^* Ax * r 2,0 CI 44 ) 

4.3.4 Heat transfer at the end wall 

The end wall AB (Fig. 10) is treated similarly to the outer 
cylindrical wall AC. The TDMA solution is extended (for the 
enthalpy equation) to include the nodes in the wall AB. The 
only difference in the treatment of the wall AB (from the wall AC) 
is in the wall to wall radiation calculation; this does not exist 
since the wall AB is assumed not to exchange radiant energy 
with the other walls. This is consistent with the assumption 
made so far that the radiation leaving a wall is perpendicular to 
it. Instead the radiation to the surroundings will be from both 
surfaces of this wall and so has double the value given by the 
equation similar to (144). 


Outer 

wall 


A 


C 



Fig. 10: Heat transfer calculation at end wall. 
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THERMODYNAMIC AND ELEMENT DATA 


5 . 


5 . 1 Element Data 

The following infoi’mation is required to describe the set of 
elements which make up the chemical species present in the 
system: 

• the element symbol (e.g. C, O, H, and N); 

• the corresponding atomic weight . 

5 . 2 Thermodynamic Data 

The thermodynamic data for constant pressure specific heat, enthalpy, 
and the entropy at one atmosphere for the chemical species are the 
same as those used in Ref. 2. These properties are expressed as 
polynomials in temperature. 


(145) 

(146) 

Z ? (147) 

There are thus seven coefficients Z^ Z 7 for each one of the 

chemical species for each one of two temperature ranges, 300°K 
to 1000°K, and 1000°K to 5000°Iv. The pressure effects on the 
thermodynamic data were not taken into account. 

The enthalpy equation (146) includes both the sensible enthalpy 
and the standard-state enthalpy of formation. The entropy s° 
includes the low-temperature enthalpy of formation as also the 
chemical and sensible contributions. 

The entropy s at any arbitrary pressure is given by: 

s = s°-RTlog (p/p Q ) (148) 

where p Q - standard atmospheric pressure. 
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6. KINETICS BATA 

The following information is required to specify the chemical 
kinetics of the system considered: 

• the set of elementary reactions making up the assumed 
chemical-kinetic mechanism : 

• the Arrhenius constants for each elementary reaction. 


In the present study, only reactions of the following types are 
considered: 


A + B C + D 
AB + II + A + B + M 
A t B + M ■+• AB + M 


, MODE=l 
, MODE=2 
f M0DE=3 


(149) 

(150) 

(151) 


The forward reaction rate constant is expressed as: 


kj* “ 

j 


B, 

1 


A^ T J exp ( _ ' T ac tj/ T ^ for reaction j 


(152) 


The Arrhenius constants A^, Bj and l' ac - t j are supplied for each 
one of the reactions considered. 


The reverse reaction rate constant may either be directly 
specified as above, or it may be calculated from a knowledge 
of the forward rate constant and the equilibrium constant: 


k bj 


k _M 


K 


bj 


(153) 
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7. RESULTS AND DISCUSSIONS 
7.1 Introduction 


In this chapter results are presented for two test cases: one 
without chemical reaction (cold flow) and one with chemical reaction. 
Before presenting the results certain computational details are given 
in the next section. 


7.2 Computational details 



At each grid node, 22 variables were computed for the test case 
with chemical reaction. The variables obtained from the solution 
of partial differential equations were: the axial and radial 
velocity components u and v, the pressure p, the stagnation 

r\j * 

enthalpy h, the mixture fraction f, the mass fraction of unburnt 


fuel m fu , and the mass fractions of the species N, NO, N0 2 , and 
N 2 0. The variables obtained through the use of auxiliary alge- 
braic equations were: the mass fractions of the species CO, C0 2 , 
H, H 2 , H 2 0, N 2 , 0, OH, and 0 2 » density, effective viscosity and 
temperature. 



For the test case without chemical reaction, the variables 
u, v and p were obtained from the solution of partial differential 
equations, and the effective viscosity from an auxiliary algebraic 
equation . 


( ii) Grid used : 

The grid used in both the test cases had 10 nodes in the axial 
and in the radial directions. The distribution of the nodes was 
non-uniform in both the directions and is illustrated in Fig. 11. 


68 








(iii) Convergence : 


The convergence criteria adopted were: 

• The normalised residual errors of each of the variables 

f\j 

u, v, h, f and m fu which were solved by a line-by-line 
procedure, should be less than 0.5%. 

• The mass fractions of N, NO, NOg, and NgO which were 
obtained by a point-by-point solution procedure 
should remain within 0.1% of their values from one 
iteration to the next . 

(iv) Physical and chemical data : 

The thermochemical data for all the species were obtained from 
Ref. 2. Reaction rate data are given in Table 2. 

(v) Geometrical and other data : 

The parameters defining the two test cases are. given in Table 
3. 

7 . 3 Results of Test Case 1 

The problem specification for test case 1 is given in Table 
3. This case in which chemical reaction is not considered is not 
of much practical interest and the aim in performing it was 
mainly to test the hydrodynamic features of the computer code. 

Figure 12 shows the axial velocity profile at various cross- 
sections of the combustor. The behaviour is as expected. On 
entry into t-ho duct, the fuel and air jets exhibit mixing and 
towards the end of the inner duct the flow shows signs of 
approaching developed pipe flow. Radial momentum effects are 
of some importance at the entrance of the duct, but for the bulk 
of the flow in the inner duct, radial momentum effects are 
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Table 2. Reaction rate data (in S.I. Units) 


No. 

Reaction 

A 

B 

T 

act 

Ref. 

1 

N+NO •+ N 2 +0 

1.500E10 

0 

0 

3 

2 

N+0 , ± N0+0 

— -v- 

5.998E6 

1.0 

3 . 172E3 

3 

3 

OH+N ± H+NQ 

-v* 

5.998E8 

0.5 

4.028E3 

3 

4 

H+N 2 0 + OH+N 2 

7.998E10 

0 

7.553E3 

3 

5 

N, 0+0 -> NO+NO 

4. -4- 

1.000E11 

0 

1.500E4 

3 

6 

n 2 o+m £ n 2 +o+m 

1.000E11 

0 

2.518E4 

3 


N+O+M -+ NO+M 

*<- 

6.397E10 

-0.5 

0 

6 


NO 2 +0 $ NO+0 2 

1.000E10 

0 

3.000E2 

6 


N0 2 +M t O+NO+M 

1.099E13 

0 

3.300E4 

6 


H 

Forward rate constant k f = AT exp ( _T ac t/ T ) 

Reverse rate constant obtained from forward rate and 
equilibrium constants. 

Hydrocarbon oxidation reaction rate =0.01 m f u m ox exp( -18000/T) 
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Tabl.e 3: Specification of Test Cases 


T 

ao 

= T fo = 275°K 

m ao 

= 3.6 

x 10“ 4 

kg/s 

P 

o 

- 2 atmospheres 

m fo 

= 1.4 

x 10~ 5 

kg/s: (0=.66) 

b 

= 20 cm 

D l,o 

= 0.7 

cm 


L 2 

= 1 cm 

°2,i 

= 1.8 

cm 


D f 

= 0.1 cm 

°2 , o 

= 2.1 

cm 


Vi 

~ 0.6 cm 






Heat transfer data (for case 2 only) 

All Stanton numbers (see Sec. 4.3) = 0.003. 
Conductivity of wall material = 41.84 Joules/m. sec. °K. 
Emissivity of all walls = 0.05. 

Surroundings: temperature = 300°K; 

velocity = 1 m/sec. 


=S +-FUEL 





V 



negligible; and the pressure field is essentially uniform in the 
radial direction. This permits the calculation scheme to be 
simplified by; cutting out the solution of the radial momentum 
equation, assuming the pressure to be a function of axial distance 
alone and obtaining the radial velocity directly from the con- 
tinuity equation. In the present work, however, this simpli- 
fication has not been introduced, since the aim was to develop 
a general program which could handle different geometries in which 
radial momentum transfer might be significant all through the flow 
field . 

At the end of the inner duct, flow reversal into the outer duct 
occurs and the pressure at the end wall rises as in stagnation 
flow. In the outer duct, again towards the end the flow exhibits 
similar characteristics as at the end of the inner duct: i.e. 
pressure radially uniform and radial velocities small compared 
to the axial velocities. 

7 . 4 Results of Test Case 2 

The problem specification for test case 2 is given in Table 3. 

This is the case of greater practical interest and it demonstrates 
all the features of the computer program. 

Figure 13 shows the axial velocity profile at various cross- 
sections of the combustor. The behaviour is qualitatively 
similar to that of test case 1. Quantitatively, the velocities 
are slightly higher in the inner duct (as compared to test case 1); 
this is due to the reduced density brought about by the preheating 
of the incoming gases. In the outer passage, the velocities 
undergo a rapid increase through the flame zone as the density 
drops rapidly. Comments about radial momentum effects made 

in Section 7.3 apply to this test case also. 
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Fig. 19: Profiles of H 0 mass fraction 
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Figure 14 shows the temperature profile at various cross- 
sections of the combustor. The slight rise in temperature in the 
inner duct is due to the conduction of heat through the wall from 
the hot gases in the outer duct. After flow reversal into the 
outer duct, combustion occurs and the temperature rises rapidly. 

In the post -flame zone there is a slight drop of temperature 
due to heat loss to the surroundings and to the incoming 
gases . 

Figures 15 and 16 show the fuel and oxygen profiles. In the 
inner duct, the air and fuel streams simply mix together and 
there is no reaction. Therefore at the end of the inner tube, 
the air-fuel mixture is almost uniformly mixed. The fuel and 
oxygen profiles show a decay with the passage of the gases 
through the flame zone in the outer duct. This behaviour is 
seen to be consistent with the temperature distribution. At 
the end, all the fuel is consumed and the excess oxygen is left 
unburnt . 

Figures 17 to 21 show the profiles of the species CO, H, H ? , 0, 
and OH. These are intermediate species formed in the reaction 
zone. Therefore, as expected, the concentrations of these 
species all have a maximum value within the main reaction zone. 

The drop in the concentrations of these species from their 
maximum values as one proceeds further downstream is due to their 
being* converted into the stabler product species C0 2 and HgO. 

Figures 22 and 23 show the profiles of the final product species 
C0 2 and HgO. These show a continuous rise and levelling off 
in the post-flame region. The formation of these two species is 
consistent with the temperature rise and fuel consumption through 
the flame zone. 

Figures 24 to 27 show the profiles of the NC) species: N, NO, N0 o 

X & 
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and NgO. The NO concentration peaks at a point slightly down- 
stream of the main reaction zone. This behaviour is as expected 
since the formation of NO is governed by kinetically-eontrolled 
reactions which are much slower than the hydrocarbon-oxidation 
reactions which rapidly reach the equilibrium state. After 
reaching its maximum value, the NO concentration drops slightly 
due to the dropping temperature. 

7 . 5 Conclusions 

The discussion of the results of the two test cases in the 
preceding sections shows that the results obtained are as 
expected. Since only one chemically reacting test case was computed, 
it has not been possible to draw various conclusions about the 
behaviour of such combustors for different operating conditions. 
However, the technique for computing such flows has been 
successfully demonstrated. 

It should also be mentioned here that the present results have 
been obtained with relatively coarse grids. In order to obtain 
more accurate results, finer grids need to be used; this of 
course results in increased computer time and storage, but is still 
within the capabilities of ordinary computers. Finer grids 
are needed especially in the flame zone in order to obtain better 
resolution in a region where sharp gradients exist. 
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8 . 


CONCLUDING REMARKS 


The present computer program has been succesffuly used to predict 
the hydrodynamics and chemistry in a two-concentric-tube combustor. 
The predictions obtained are qualitatively plausible. Detailed 
experimental data are required to assess quantitatively the 
validity of the numerical procedure and the physical hypotheses 
involved. 

In concluding this report, some consideration is given to what 
further developments would be fruitful. The following improve- 
ments may be envisaged to make the program a'proach more towards . 
physical realism. 

(a) Turbulence modelling : 

The present version of the program incorporates a simple zero- 
equation model of turbulence. Obviously, this is an over- 
simplification and a more realistic simulation of turbulence 
would be to employ the two-equation model employing the kinetic 
energy of turbulence and its dissipation rate, as the dependent 
variables of differential equations. 

(b) Heat transfer calculations : 

In the present program, the modelling of convective and radiative 
heat transfers has been considerably simplified. In the cal- 
culation of convective heat transfer , uniform prescribed Standton 
number have been employed. A more realistic representation 
would be to compute the Stanton numbers locally, as done in, 
for example, Ref. 7.* The extension of the program to achieve 
this is quite straightforward. 

In the calculation of radiative heat transfer, it has been 

* Since the writing of this report this has been done. The 
corresponding update to the program is given as Appendix E. 



assumed that the gas is not participating in the heat transfer 
process, The incox'poration of a four-flux model of radiation 
(e.g. Ref. 8) would permit a more realistic simulation of the 
radiation process and would permit the absorption and scattering 
of radiation by the gas to be accounted for in a simple way, 

A further refinement would be to compute the distribution of 
radiation energy in wavelength space; and to allow for the 
multiple interactions between different parts of the combustion 
chamber which are the special features of the Hottel-Sarof im 
(Ref. 9) method. Although the extension of the present code 
to include these refinements is conceptually straightforward, 
it should be pointed out that these extensions would result in 
a considerable increase of both computer storage and processing 
times. 

(e) Sophisticated chemical-kinetic models 


The consideration of detailed hydrocarbon-air kinetics as 
distinct from a simple one-step Arrhenius expression together 
with the detailed NO -kinetics scheme used in the present 

A 

work would give a more accurate prediction of NO -emissions. It 
is a simple matter to enlarge the chemical-kinetic sophistications 
of the present program; all that is required is to enlarge the 
storage requirements of the program, to extend the limits of 
some PO-loops, and to supply additional coding for the coupling 
of the species and energy equations, However, this again results 
in a manifold increase of computer processing time and fine-grid 
computations with sophisticated chemical kinetics are likely to 
be prohibitively expensive. 
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10. NOMENCLATURE 


Note: Some symbols are defined and used locally in the report; 
these are not included in the list below: 


Symbol 

a 

L 


Cell area 


Meaning 


Number of kg - atoms of element i per kg 
mole of species j . 


A i’ B i’ C i ' 
D . 


Coefficients in the finite-difference 
equations . 


A E* A N' a s» 
A w 


Finite-difference coefficients. 


A., A . 
3 ’ -3 


Arrhenius pre-exponential factor. 


Number of kg-atoms of element i per kg of 
mixture. 


B r b -j 


Exponent on temperature in Arrhenius rate 
expression. 


Convection mass flux. 


C, C 

* r 


Specific heat at constant pressure of the 
mixture . 


P* j 


D 1 , i’ D l,0» 
D 2,i ! D 2 , 0 ’ 


D, 


Constant-pressure specific heat of chemical 
species j . 

Dimensions of combustor (See Fig. 1). 
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Symbol 

D 

°l ,e 2 

E 

E 

f 

f 

st 

h 


li 


h. 


h 


mix 


diff 


k 


,v b 

k 


f 


K 


c 


j Ijg i 

in 


ao 


m 


fo 


m. 


fu 


m. 


Meaning 

Diffusion mass flux. 

Emissivities ; 1 ""inner tube; 2«outer tube 
Activation energy. 

Constant in wall function. 

Mixture f r action . 

Stoichiometric value of mixture fraction 

Ideal-gas partial molal specific. Gibb’s 
function of species j, per kg-mole. 

Convection heat transfer coefficient. 

Stagnation enthalpy. 

Enthalpy of chemical species j . 

Mixture enthalpy (sensible +■ chemical). 

Diffusion mass flux. 

Diffusion mass flux. 

Thermal conduct ivity . 

Backward reaction rate constant. 

Forward reaction rate constant. 

Equilibrium constant . 

Dimensions of combustor (see Fig. !), 

Air flow rate. 

Fuel flow rate. 

Mass fraction of unburnt fuel. 

Mass fraction of chemical species j . 


Symbol 


Meaning 


n W m 0. 


Mass fraction of oxygen. 


M 


n 


n 


Number of chemical reactions. 
Mole number. 


NS 
2E a 

i=l 


ij- Molecularity of forward reaction j 


n 


d 

NLM 


As Uj , but for backward reaction j 


Number of elements. 


. NS 


Number of chemical species in the system. 


NSE 


NSK 


P 

P 

P 

o 

Po 

Pr 


Pr 

eff 

Q 

^rad 


Number of chemical species whose concen- 
trations are determined by a chemical- 
equilibrium analysis. 

Number of chemical species whose concen- 
trations are kinetically determined. 

Pressure. 

Arrhenius pre-exponential factor. 

Initial pressure. 

Standard atmospheric pressure, 
laminar Prandtl number. 

Effective Prandtl number. 

Heat flux. 

Kadiation heat flux. 


I 


I 


l 




.*. .. % .^r. * 


i , i 


* 

■*» 


*■ 

* 


Symbol 


Meaning 


r 


Radius. 


r l , i 1 r l , 0 ’ 
r 2 f i ,r 2,0' r f 

r l ,m and r 2,m 
R 


Radii corresponding to q , Dg ^ , 

Dg q, respectively (See Fig. 1.). 

sO . 5 ( r ^ ^+r^ Q ) and 0 . 5 ( r 2 ± +r 2 q ) respectively. 
Universal gas constant. 


V R -j 

s 

s 

s j 

s° 

J 

Sc 

St 

V S P 

S * 

T 

T 

act , j 


T 

T 


ao 

fo 


Mass rate of creation of species by forward 
and reverse reactions j, respectively. 

Shear stress coefficient. 

Mass of oxygen per unit mass of fuel in 
stoichiometric combustion. 

Ideal-gas specific entropy of species j . 
One-atmosphere value of Bj . 

Schmidt number . 

Stanton number. 

Parts of linearised source term. 

Source term of dependent variable <J? . 
Temperature . 

Activation temperature for reaction j , i.e, 
activation energy divided by the universal 
gas constant. 

Air temperature at initial axial position. 
Fuel temperature at initial axial position. 


u 


x-direction velocity-component . 


* ••••• * ^ .,,,,* 


Symbol Meaning 

u aQ Air velocity at initial axial position. 

Ufc Fuel velocity at initial axial position. 

U Overall heat transfer coefficient. 


v r- or y- direction velocity-component. 

W Mean molecular weight of gas mixture. 

W. Molecular weight of chemical species j. 

x Axial distance. 

x Number of kg-atoms of carbon per kg-mole 

of hydrocarbon fuel. 

y Radial distance. 

y Number of kg-atoms of hydrogen per kg-mole 

of hydrocarbon fuel. 

Z i (i=l 7) Coefficients in thermochemical data equations. 

Greek Symbols 

Stoichiometric coefficients of species i in 
chemical reaction j , as a reactant and as a 
product respectively. 

Third-body stoichiometric coefficient in 
reaction j. 

Under-relaxation factor for pressure. 

Ratio of specific heats '(C /C v ) . 


aj 


Y 


a 


a, 


ij’ id 
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f 




Greek Symbols Meaning 

T. Exchange coefficient for dependent variable 

* *. 

<S ik Kronecker delta function. 

<$x, Ax Grid distance in x-direction. 

« Von Karnmn constant. 


<5 y,Ay/6i*,Ar 

n 

A 

V 1 » ^eff 


n 

F 


% fu 


5 


ox 



Grid distance in r- or y-direction . 
Under-relaxation parameter , 

Thermal conductivity. 

Effective viscosity. 

Laminar viscosity. 

Defined as (m fu - m ox /s). 

Defined as (™ fu ) inlet . 

Defined as -(m ) /s. 

ox inlet 

Lagrange multipliers in Gibbs function 
minimisation equation. 


Density. 

Stef an-Bolt zinann constant . 




Mole numbers of species j , kg-moles 
j/kg mixture. 




Average of cl over adjacent nodes, weighted 

J 

by respective finite-difference coefficient. 

Reciprocal of mean molecular weight of 

, . NS 

gas mixture _ v 

55 It Oj • 

i=l 1 
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Greek Symbols 


Meaning 


T 

Subscripts 


b 

E,N,S,W 

<\j 

h 


i 

3 

NW 

pr 

P 

Sun- 

wall 

o 

CO 

l,i 

1,0 


Dependent variable. 

Equivalence ratio. 
Shear stress. 


Fully burnt. 

East, North, South, West nodes respectively 

Stagnation enthalpy. 

i'th location in the grid. 

Chemical species j . 

Near wall node. 

Products 

Grid node P. 

Surroundings . 

Wall values. 

Dependent variable 4> . 

Previous iteration value. 

Free stream value. 

Innei* side of inner tube. 

Outer side of inner tube . 
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APPENDIX A 


ORGANISATION OF THE NASCO II COMPUTER PROGRAM* 


A . 1 Introduction 


The organisation of the computer program will be looked at in 
detail in this Appendix. Firstly the structure and the inter- 
connections of the different subroutines are described. The 
subroutines are classified into different categories depending 
on the function they serve in the program, and then each of the 
subroutines is described in detail. In the course of this 
description are mentioned the program changes necessary to solve 
problems with different initial and boundary conditions, and 
also incorporation of alternative physical modelling for properties. 

The present program has been derived and developed from the 
CHAMPION 2/E/FIX program of Pun and Spalding (Ref. 1). The reader 
is advised to refer to the description of this program for back- 
groun d in format ion . 

A. 2 Program Structure 

A. 2.1 Flow Diagram 

The structure of the computer program can be represented by the 
flow diagram given on the next page. Not all the interconnections 
are shown here, but the ones which are shown are the main ones. 

There are IS subroutines; BLOCK DATA, MAIN, OUTPUT, PRINT, BOUND, 
SOURCE, WALL, CHEM, SPECE, CALC, CONST, GEOM, ADJUST, FLOWM, COEFF, 


* NASCO II stands for NASA Surface Combustor, Version II. 
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Problem- 

dependent 



Computational 


Physical-model 

dependent 


Pig, A.l: FLOW CHART OF NASCQ II 












TEST,; REACT, and HOPS. 

The .first five are of major concern to the user and they will 
require at least minor modifications when a new problem is to be 
tackled. The other subroutines will in general require no 
modifications, Subroutines SOURCE and WALL embody the physical 
processes; modifications to these are needed only if alternative 
physical models are to be considered. Subroutines CHEM, SPECS 
and CALC relate to chemical-quilibrium and kinetics calculations: 
these should not be altered. Subroutine REACT is for the input 
of thermochemical and kinetics data and subroutine HOPS for the 
calculation of certain thermodynamic quantities. Finally 
subroutines CONST, GEOM , ADJUST, FLOWM, COEFF and TEST, embody 
the mechanisms for solving the finite-difference equations; these 
again should not be altered unless major extensions of the 
program are envisaged, 

A. 2, 2 Flow of control 

Inspection of subroutine MAIN in the flow diagram reveals that, 
apart from calls to certain subroutines control proceeds from the 
start to the end of Chapter 5. 

The main computation loop is entered at the end of Chapter 5. 

The loop 5-43-7-8-9-10-11-12-0 is then traversed as many times as 
there are forward steps and number of iterative sweeps. During 
the course of this traverse, calls are mode to various subroutines. 
Finally subroutine OUTPUT is called to print the results as 
indicated in the flow diagram. 

Before describing the various subroutines, a few general comments 
on the storage of the variables in the program are made. 
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A. 2*3 Storage of valuables 


The field variables are: 


U , U(I) 

v «x,y) V(IV) 

5> «x,y* rh H(I) 

f «x,y> , FM( I ) 

m fu «x,y* „ FtJE(I) 

*x,y} ,, FSCX.J) 

P *x,y) . P(IP) 

P' «x} ,, PP(IY) 

M eff ^ x >y^ * »1U(I) 

T *x,y> „ TEM(I) 

P *x,y* ,, RHO(I) 


la general the storage of c{>£x,y} is arranged as follows: 

for the first row of grid nodes, IX “ 1, there are NY values 
of $ , and these values fill the first NY elements of PHI(I); the 
next NY elements of PHI(I) are filled by the values of ^ for the 
next row of nodes, IX « 2. Thus each row of nodes is sequentially 
stacked to fill the PHI array. 


Therefore for a NX*NY grid the total number of elements of the 
PHI array is NX*NY. 

The sizes of the field arrays for the various variables are now 
summarised : 


+ The notation $fx,y} means is a function of x and y. 
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■;w^a^wpiw»-iw p •:■ 


Variable 


Array Size 
(NX-1 ) ♦NY 


Comment 

Storage is provided for one 
less row of cells due to 
staggering of the grid. 


NX* (NY-1) 


storage is provided for one 
less strip of fixed 1Y cells 
due to staggering of the grid 


<Ki.e. h, f , m fu , NX*NY 
"V p > T> u eff> 


storage is provided for boundary 
nodes as well as for the 
control cells. 


(NX-2)* (NY-2) 


storage is provided for internal 
cells only and not for boundary 
nodes. 


one-dimensional quantity. 


The identification of a variable value at a particular nodal 
location is made by using a simple index determined from the 
IX, IV position of the variable in the two-dimensional field 
as follows* 


Variables 


Fortran Name 


Indexin 


$(i .e. h } f , nu y See previous I^(IX-1)*NY*IY 


T » p efP 


page 


U(I) 

V(IV) 

P(IP) 


I=(IX-1)*NY+IY 

IV=(IX-1)*NYM1+IY 

IP-(IX-2)*NYM2+IY-1 


PP(IY) 
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It should be noted that the convention employed for relating the 
referencing of the staggered velocity nodes to the main nodes 
is known as the 'L rule’, and is shown below; 

rr. 

! v pi 

i i 

: i 

!.f~ *u-"i 


All of the variable arrays are equivalenced to the single 
one-dimensional array F, The size of the F array is equal to the 
sum of all of the variable arrays which are stored in F. 


The identification of an element in the F-array is performed 
using I and an identifier IZERO(JPHI). IZERO(JPHI) indicates the 
last storage location in the ( JPIII-1) th block of the F-array, 
e.g. EMU ( I ) in F(I) is: 

F(I) = IZERO( JEMU)+IY+( IX-1 )*NY. 


Other two-dimensional quantities stored in one-dimensional arrays 
are: VOL, ARE AN, AEDDX, ANDDY. These are all geometrical 

quantities. 
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A. 3 The problem-dependent subroutines, BLOCK DATA, MAIN, OUTPUT , 
PRINT, and BOUND 

A . 3 . 1 BLOCK DATA 

This subroutine is used for the input of some data. It consists 
of nine chapters, the functions of which are explained by their 
titles; these will now be briefly described. 

Chapter 1*. Preliminaries 

In this chapter, identification and control parameters are defined. 
An inspection of the Glossary of Fortran variables in Appendix 
C, will reveal the function served by the parameters defined here. 

Chapter 2. Grid and Geometry 

In this chapter, the user must specify the number of transverse 
and longitudinal grid points and how they are distributed. 
Geometrical information relating to the dimensions of the combustor 
is also supplied here. 

Chapter 3. Dependent variables 

In this chap cer , the indices (JU, JV, etc. ) defining the location 
of a variable held in storage in the F-array and the indices (IDN, 
IDNO, etc. ) defining the location of a species stored in the 
FS-array, are specified. The number and specification of the 
dependent variables solved for are also given here. 

Chapter 4, Property Data 

In this chapter, some of the properties of the fluids are 
specified. Some control parameters relating to properties and 
processes are also supplied here. Polynomial coefficients AC, 

AH, ASM, AS1 relating to chemical-equilibrium calculations 


* The chapter numbers correspond to those of subroutine MAIN. 


are defined here. 


Chapter 5. starting values 

In this chapter several arrays are initialised to aero,' these are 
the default values* The flow rates, temperatures , fuel and 
oxygen concentrations of the two incoming streams and the inlet 
pressure are specified here. 

Chapter 7. Boundary conditions 

in this chapter, the parameters relating to heat transfer 
calculations (boundary conditions for the enthalpy equation) 
are specified. 

Ch apt e r 8 * A d v an o e 

Here the maximum number of iterations to be performed at a 
given line is specified. 

Chapter 11 . Print 

In this chapter, the parameters controlling the printout of the 
variables and residual errors are defined. 

Chapter 13. Decide 

In this chapter, the maximum number of iterative sweeps and the 
convergence criteria are specified. 

A. 3. 2 Subroutine MAIN 

Subroutine MAIN consists of 13 chapters, the functions of which 
are explained by their titles, and these will now be briefly 
described * 

Chapter 0. Declarations 

Here DIMENSIONS AND COMMON statements allocate storage and 
vari ab Ion arae s . 

Chapter 1, Preliminaries 

Comment cards describing the special features of a particular run are placed 
in this chapter. 
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Chapter 2 . Grid 

In this chapter, a call is made to subroutine C0NST(2) to calculate 
quantities related to the numbers of grid nodes in the x- and 
y-directions (NX and NY). Next subroutine GEOM is called to 
calculate grid related quantities. 

Chapter 3. Variables 

In this chapter comment cards are supplied to state the 
variables which appeal* in the differential equations and the 
auxiliary equations that are to be solved. Subroutine CONST(3) 
is called to calculate quantities related to the dependent 
variables. 

Chapter 4. Property Data 

In this chapter, subroutine REACT is called for the input for 
thermodynamic and reaction mechanism data. The laminar and 
turbulent Prandtl/ Schmidt numbers of the various dependent variables, 
and the stoichiometric mixture fraction are also calculated here. 

The RHO (density) and EMU (viscosity) arrays are initialised with 
reference values. 

Chapter 5. Starting Preparations 
The function of this chapter is to: 

• call subroutine C0NST(5) for the calculation of certain 
reference indices; 

• compute the properties in the inlet fuel and air streams; 

• compute the normalising factors for residual errors; 

• initialise dependent variable fields: 

(a) h, u, f , m fu , T, species mass fractions in DO-59 loop; 

(b) N0„ - species in DO-580 and DO-582 loops; 

A 

(c) P eff in DO-597 loop; 

(d) p in DO-593 loop; 

(e) v in DO-590 loop (so as to be in continuity balance 
with the u specified above). 
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• call subroutine OUTPUT(l) to print out problem specification; 

• call subroutine 0UTPUT(2) to print out initial dependent 
variable fields; 

• prepare for the start of a new iterative sweep. 

Chapter 6, Step Control 

In this chapter the DO-loop limits for the cross-stream TDMA 
(IYF and IYL) are set and certain indices related to the 
current IX value and to IYF and IYL are computed. 

Chapter 7. Boundary conditions 

The boundary condition infoi'mation is supplied in chapter 7 of 
BLOCK DATA. 

Chapter 8, Advance 

This chapter results in the execution of a forward step and the 
computation of the dependent variables: u and v velocities, 
enthalpy, mass fraction of unburnt fuel, and mixture fraction. 

The sequence of events in the execution of a forward step is: 

• a call to OQEFF(O) to obtain the diffusion fluxes; 

• calls to FLOWM(l) and FLOWM(3) to obtain the convection fluxes; 

• calls to COEFF(JU) and ADJUST(3) to perform an integral 
momentum balance for the current strip of cells (see section 
3.3.5). This is performed only on the first iteration at 
the current line (i.e. when NTRAV=1). 

• Finally the DO-800 loop incorporates call to COEFF(JPHI), 
once for every dependent variable JPHI which is to be solved. 
Also incorporated in this DO-loop are statements which 
ensure that when the enthalpy equation is being solved, the 
cross-stream TDMA extends through both the inner and outer 
ducts; for other variables, the extent of the field covered 
by the cross-stream TDMA is as illustrated in Fig. 5. 


Chapter 9. Complete 

In this chapter, variables which are not obtained directly by the 
line-by-line TDMA procedure are computed. This is achieved by 
calls to subroutine CHEM (only for INERT=2, reacting flows): 

(a) at ENTRY TEMP to compute the temperature; 

(b) at ENTRY DENS to compute the density; 

(c) at ENTRY EQUIL for chemical-equilibrium computations (only 
for IEQU1L=1) ; 

(d) at ENTRY KINE for chemical-kinetics computations (only 
for KNTCS=1 and I SWEEPS KSWEEP) . 

For non-reacting flows (INERT=1), control is transformed to state- 
ment number 905 and the temperature (if KS0LVE( JTEM) . NE.O) is 

computed in the DO-930 loop. The computation of temperature is 

as per the discussion presented in Section 3.7. 

Next the effective viscosity values are updated in the DO-940 loop. 

Finally, the influence coefficients DU used in the pressure- 

correction equation (Sec. 3. 3. 4 ) are set to zero when dealing 

with the last column of cells. The reason for this is that the 
boundary velocities are specified and do not require to be 
corrected by the pressure-correction equation. 

Chapter 10 , Adjust 

The purpose of this chapter is to perform sectional adjustments in 
order to achieve integral mass and momentum balances across a 
strip of cells and also to obtain local continuity balance. 

Firstly, overall continuity across the strip is obtained by calls 
to subroutines FL0WM(2) and ADJUST(l). 

Next, local continuity balance is obtained by calls to subroutines 
FLOWM(l), FLOWM(2), COEFF(JPP) and ADJUST(2) ; this step involves 
the solution of the pressure-correction equation. 
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Finally, subroutine ADJUST(3) is called to obtain integral 
momentum balance , 

Chapter 11. Print 

In this chapter, a reference pressure is subtracted from the 
pressure field to obtain the pressures relative to a selected 
reference point (IXPREF, IYPREF) . Next subroutine BOUND is 
called, once for each dependent variable solved] this updates the 
values of the variables on the boundaries for printout purposes. 

Chapter 12. Decide 

In this chapter the following decisions are taken: 

(I) If the maximum sum of the residuals on the current line 

RSMAX is greater than the convergence criterion RSQHEK and if 
the number of iterations NTRAV on the line is less than 
the specified maximum value of NTDMA , the solution on the 
same line is repeated by transferring control to statement 
number 80. Otherwise step (ii) below is followed. 

(ii) A check is made to see if the sweep has been completed. If 
yes, then subroutine OUTPUT(3) is called for the printout 

of residual sources of the variables. If no, then control 
is transferred to statement 65 for the execution of the next 
forward step* Subroutine OUTPUT(2) is called for the printout 
of the field values of the variables every IPRINT sweeps ; 
then step (iii) below is taken* 

(iii) Finally, if the largest residual source sum RSMAX in the 
field is greater than the convergence criterion CCHECK and if 
the number of sweeps performed I SWEEP is less than the 
maximum number specified LSWEEP , control is transferred to 
statement 50 for the start of a new sweep. Otherwise 
subroutine OUTPUT ( 2 ) is called for obtaining the final printout 
of the dependent variable fields. 


A. 3. 3 Subroutine OUTPUT 


Subroutine OUTPUT is divided into four chapters which are now 
briefly described: 

Chapter 1. Preliminaries 

This chapter provides by way of DATA statements, values for certain 
variables used during printout. 

Chapter 2. Headings 

This chapter is used to obtain some initial printout describing 
the problem and the input data. Chapters 1 and 2 are activated by 
CALL OUTPUT ( 1 ) from chapter 5 of subroutine MAIN. 

Chapter 3. Field values 

This chapter prints out the fields of each dependent and 
auxiliary variable solved for by calling subroutine PRINT. 

This chapter is activated by CALL 0UTPUT(2) from chapter 12 of 
subroutine MAIN, 

Chapter 4. Printout of residual sources and monitoring values 
This chapter prints out the residuals of the finite -difference 
equations for each dependent variable solved and the variable 
values at the monitoring grid node (IXMON, IYMON) . This 
chapter is activated by CALL 0UTPUT(3) from chapter 12 of sub- 
routine MAIN. 

A, 3.4 Subroutine PRINT 

Subroutine PRINT is used to print the field values of the dependent 
variables. It is divided into three chapters which are described 
below. 

Chapter 1 . Preliminaries 

In this chapter the appropriate DO~loop limits for the printout 
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of different variables are set, This is necessary, since as 
described in Section A, 2. 3, the storage arrangement is different 
for different variables. 

Chapter 2 , Print Titles of variables 

As its name indicates, this chapter is used to print the titles 
of variables stored in the array TITLE, 


Chapter 3, Print field values 

Finally, in this chapter the field values of the dependent 
variables are printed, 

Subroutine PRINT is called from Chapter 3 of subroutine OUTPUT once 
for every dependent variable solved and after every IPRINT number 
of iterative sweeps, 

A , 3 , 5 Subroutine BOUND 

The function of this subroutine is to update the values of the 
dependent variables on the boundaries of the integration domain. 

This updating is a purely 1 decorative * exercise and does not 
influence any computations. Examples of such updating are; setting 
the centreline value of a dependent variable equal to that at the 
neighbouring radial grid node; setting the exit plane values equal 
to those at the neighbouring axial grid node, etc. 

Subroutine BOUND consists of a number of sections, one for each 
dependent variable. The appropriate section is accessed by 
means of IF- statements at the beginning of the subroutine. The 
coding is straightforward and easy to interpret with the aid of 
the comment cards provided. 

Subroutine BOUND is called from Chapter 11 of subroutine MAIN, once 
for each dependent variable being solved. 
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A. 4 The physical-model subroutines, SOURCE and WALL 


These two subroutines incorporate the physical models describing 
the flow situation. 

A. 4.1 Subroutine SOURCE 

The function of this subroutine is to compute the source terms of 
the dependent variables. It is divided into seven chapters 
described below. This subroutine is called from subroutine 
COEFF. 

Chapter 1, Preliminaries 

In this chapter , IF statements are provided for the transfer of 
control to any one of the succeeding chapters depending on the 
dependent variable currently being solved. 

Chapter 2. Source terms for u 

In this chapter the source terms of the u-momentum equation are 
computed. The calculation of the general source term as given 
in Table 1 of chapter 2 is incorporated in the DO-11 loop. For 
the particular case when both density and viscosity are uniform 
(as indicated by KRHOMU=0), certain terms are identically zero; 
the calculation of the source term is then simplified and this is 
included in the DO 13-loop. 

Sources associated with inertial under-relaxation (Section 3.4.2) 
are also treated in the DO-11 loop. 

Finally, at the end of this chapter, programming sequences are 
provided to include the shear stresses at the inner tube as 
sources in the u-momentum equation. This follows the discussion 
of Sections 4 . 1 and 4 . 2 and the programming is the Fortran 
equivalent of the formulae derived in Chapter 6 of Ref 7 . 
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Chap t j 3. Source terms for v 

In this chapter the source terms of the v-momentum equation are 
computed. This chapter is similar to chapter 2. 

Chapter 4. Source terms for 

In this chapter the source terms of the stagnation enthalpy 
equation are computed. Inspection of Table 1 of chapter 2 shows 
that no source terms are normally associated with this equation. 

The sources in this case are all associated with the heat transfer 
boundary conditions as discussed in Section 4.3. 

Firstly, heat transfer at the inner tube wall is considered 
(Sec. 4.3.2). The convective and overall heat-transfer coefficients 
are computed here. Next axial conduction and wall-to-wall radi- 
ation fluxes are computed. These are incorporated into the SU-3P 
terms at the nodes IYWM1 , IYW, IYWP1 as per equations (131) to (138). 

After this, heat transfer at the outer duct wall is considered 
(Sec 4.3.3). The programming sequence is similar to that for 
the inner tube and involves a modification of the SU-SP terms 
at the nodes NY and NYM1 . 

Next heat transfer at the end wall is considered. In the DO-425 
loop the heat transfer from the wall to the gas is included 
in the sources of the nodes adjacent to the wall (i.e. IX=NXM1). 
Finally, in the DO-435 loop the heat transfer to the end wall is 
considered. Here radial conduction, radiation to the surroundings 
and free and forced convection to the surroundings are all com- 
puted as per the discussion in Section 4.3. 

Chapter 5. Source terms for mixture fraction 
Inspection of Table 1 of chapter 2 shows that the mixture 
fraction equation has a zero source term. Consequently; the 
SU and SP arrays are simply set to zero in the DO-52 loop. 
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Chapter 6, Source terms for fuel 

The computation o:t' the fuel source term is done according to the 
linearised source-term expressions derived in Section 4,5 of 
Ref, 10. The programming sequence is contained in the DO- 62 loop 
and is similar to that provided in Ref. 10. 

Chapter 7, Source terms for p' 

The source term of the pressure-correction equation is the mass 
imbalance associated with the ' starred 1 velocity field (Section 
3.3.4). Xt is therefore computed in the DO-92 loop by adding 
up the convective fluxes through the four faces of a finite- 
difference cell. 

At the last column of cells ( IX«NXM1 ) , the set of equations 
defining the pressure-corrections is singular since the 
summation of the S^-terms of equation (96) for this column is 
identically zero. This singularity is removed by setting the 
pressure correction at the XXI* node to zero , This is done by the 
treatment : SU(IYL)wQ, 0, SP(iyh) «-BIG (a large number). It can 
be seen from equation (73) that this SU-SP modification will 
result in a zero pressure-correction at the IYL node. 

Finally, the outlet plane boundary condition of uniform pressure 
is imposed by ensuring the pressure-corrections are zero via the 
SU-SP modification described above. 

A. 4. 2 Subroutine WALL 

The function of this subroutine is the calculation of the 
quantities required for the modification of the finite-difference 
coefficients for the nodes adjacent to the duct wall. 

On entry into this subroutine, certain indices are computed for 
vise later in the subroutine , Control is then transferred to 


statement number 10 if the variable in question is the u-velocity 

(JPHI=JU). Here some 'reference* values are chosen for density, 

viscosity, velocity and radius. These are chosen rather 

arbitrarily. Then if laminar flow is indicated either by KLT 

being equal to unity or the Reynolds number (based on the 

o 

'reference' values) being less than 132.25 (=11.5 ), control is 
transferred to statement number 19. Here quantities related 
to laminar flow are computed. Otherwise the turbulent flow 
section is accessed. The programming sequence here is easy 
to interpret and is the Fortran equivalent of the formulae 
derived in chapter 6 of Ref. 7. (see also Section 4.1). 

If the variable in question is the v-velocity, then control is 
transferred to statement number 200. This section is similar 
to the u-velocity section described above and involves the 
inclusion of the shear stresses at the end wall in the v-velocity 
equation. 

Subroutine WALL is called from subroutine COEFF once for u-velocity, 
and once for v-velocity. 
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A. 5 The chemical-model subroutines, CHEM, SPECE, and CALC 

These subroutines incorporate the computations involved with the 
chemistry of the flow. The chemical-kinetics computations are 
mainly incorporated in subroutines SPECE and CALC which are 
simplified versions of those given in Ref. 3. These subroutines 
have been simplified from their original general version to make 
them more particular to the problem considered here. 

A . 5 . 1 Subroutine CHEM 

This subroutine is divided into four chapters, each having 
its own ENTRY and RETURN statements. 

Chapter 1. ENTRY TEMP 

The function of this subprogram is to compute the temperature of 
the gas mixture for specified stagnation enthalpy and composition. 
The method described in Section 3.7 is followed. On entry into 
this subprogram indices NS1 and NS2 are set appropriate values 
depending on whether the chemical -kinetics solution is required 
(KNTCS=1 ) or not required (KNTCS=0). 

The DO-115 loop spans all the internal cross-stream points. 

Eirstly the mass fraction of unburnt fuel is restricted to be 
no greater than the mixture fraction. Next the concentrations 
of oxygen and products (considered as one species) are obtained; 
the concentration of nitrogen is obtained by a process of 
subtraction in the DO-105 loop. Finally, the DO-110 loop 
incorporates the Newton-Raphson iteration scheme for temperature . 

At each iteration the enthalpy (HMIX)and the specific heat (CPMIX)of 
the equilibrium-product-species are obtained using polynomial 
fits; thus the computation of each individual species-concentration 
is avoided. The number of iterations is restricted to NTMAX 
or less if the normalised change in temperature from one 
iteration to the next is less than EPST. Both NTMAX and EPST 
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are defined in Chapter 4 of BLOCK DATA. 

Subprogram TEMP is called from subroutine MAIN (Chapter 9). 

Chapter 2. ENTRY DENS 

The function of this subprogram is to determine the density 
of the gas mixture. The density is computed in the D0-210 
loop which spans all internal cross-stream points. In obtaining 
the mean molecular weight of the gas mixture, the contribution 
of the equilibrium-product-species is obtained by means of a 
polynomial involving temperature. 

Subprogram DENS is called from subroutine MAIN (Chapter 9), when 
INERT equals 2 (reacting flows). 

Chapter 3. ENTRY EQUIL 

The function of this subprogram is to obtain the concentrations 
of the equilibriun-product-species . This is done by using 
polynomial expressions described in Section 3.5.4. 

This subprogram is called from subroutine MAIN (Chapter 9), when 
INERT equals 2 (reacting flows), and IEQUIL equals unity. 

Chapter 4. ENTRY KINE 

This subprogram is used to obtain the concentrations of the NO - 

A 

species by reference to kinetically-controlled reactions. 

Firstly initial estimates for the concentrations of the NO -species 

A 

are specif ied at the cross-stream plane being solved for and the one 
downstream of it. This is done by simply setting these values 
equal to those at the corresponding upstream grid node. This 
is done in the DO-482 loop which is accessed only during the first 
iterative sweep for the solution of the NO x ~species (i.e. ISWEEP. 
EQ. ICSWEEP or (KSWEEP+1)); the chemical-kinetics solution is 
started after other variables have undergone KSWEEP number 
of iterative sweeps and have stabilized to a certain extent. 
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The DO-487 loop spans all the internal cross-stream points. In 
this loop the following operations are performed at each grid 
node : 


• computation of the mole numbers of all the species and 
storing them in the S2-array (DO-486 loop); 

• computation of the weighted averages of the mole numbers of 
the NO x -species at the four neighbouring nodes and storing 
them in the Sl-array (DO-488 loop) (this corresponds to 

crt of equation ( 121 ), Section 3.6.1); 

• a call to subroutine SPECE to obtain the chemical-kinetics 
solution (i.e. mole numbers of the NO -species) for temperatures 

f\ A 

greater than 550°K; 

• conversion of the mole numbers to mass fractions (DO-489 and 
DO-490 loops); 

• adjusting the mass fraction of nitrogen to ensure that all 
mass fractions add to unity (DO-493 loop). 

It will also be noted that should a converged solution be not obtained 
from subroutine SPECE (as indicated by CONVG= . FALSE . ) a warning 
message is printed out and the NO -species-concentrations set 

A 

equal to the weighted averages of their concentrations at the 
four neighbouring nodes (DO-402 loop). This is also done for 
temperatures not greater than 550°K. 

Subprogram KINE is called subroutine MAIN (Chapter 9) when 
I SWEEP > KS WEEP and KNTCS=1 . 
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A. 5.2 Subrout in e SPECK 

The function of this subroutine is to control the Newton-Raphson 
iteration procedure for the solution of the chemical-kinetics 
equations as described in Section 3.6. This subroutine consists 
of five chapters. 

In Chapter 1 the logarithms of the species mole-numbers are 
computed in the DQ-10 loop. The sum of the species mole-numbers 
and its logarithm are also computed here. The size of the 
correction matrix, I MAT, is then specified. 

In Chapter 2 the main iteration loop (DO-170) is started, The 
elements of the Newton-Raphson correction matrix are set up by a 
call to subroutine CALC. Subsequent statements in Chapter 2 
involve the standard Gaussian pivotal elimination solution 
procedure for the correction matrix. 

* 

In Chapter 3 the under-relaxation parameter ETA is computed as 

* described in Ref* 2. 

* 

In Chapter 4 the species mole numbers are corrected, the corrections 
being scaled by the factor ETA, 

In Chapter 5 the convergence criterion is applied (Section 
3.6.3) . If all the species mole numbers have converged 
to within a user-specified tolerance limit BBSS, the variable 
CONV6 is set equal to .TREE., and iteration is stopped. Otherwise 
the same set of operations is repeated until convergence is 
achieved; the maximum number of iterations being restricted to 
ITMAX. Values of both ITMAX and EPSS are set in BLOCK DATA 
(Chapter 4). 
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Provision is made for printout of several quantities for 
diagnostic purposes at various stages of this subroutine. This 
printout is triggered by setting IDEBUG equal to one in Chapter 
4 of BLOCK DATA. 

Subroutine SPECE is called from subroutine CHEM (ENTRY KINE). 

A. 5. 3 Subroutine CALC 

The- function of this subroutine is to construct the Newton-Raphson 
correction matrix for the solution of the chemical-kinetics 
equations as described in Section 3.6. This subroutine consists 
of three chapters. 

In Chapter 1 all the elements of the correction matrix are initialised 
to zero. The mixture density is also computed. 

In Chapter2 the forward and reverse rates for each reaction are 
computed in the DO-lOO loop. Only three different types of 
reactions have been considered: 


MODE = 1 : 

A + B + C + D 


MODE = 2 : 

AB + M A + B 

+ M 

MODE = 3 : 

A ■+ B + M ■* AB 

+ M 


Relevant Fortran statements are provided to determine the reaction 
type and for MODES 2 and 3, control is transferred to statements 
20 and 30 respectively. Subsequent statements compute the correc- 
tion matrix elements as per the equations given in Section 3.6. 

All these operations are performed for each reaction in the 
DO-100 loop. 
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Chapter 3 completes the calculation of the matrix elements; the 
term ApO'^ oi equation (121) is added to the diagonal elements 
and the term Ap (o^ - o^*) of equation (121) is added to the 
last column oi the correction matrix, 

9 

i 

Subroutine CALC is called from Chapter 2 of subroutine SPECK. 
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A . 6 The Computational Subroutines, COEFF. CONST, FLOWM , ADJUST , 

GEOM and TEST 

A. 6.1 Subroutine COEFF 

This subroutine is used to set up the finite-difference coefficients 
and solve the finite-difference equations of the various dependent 
variables. It is divided into five chapters which are described 
below . 

Chapter" 1. Preliminaries 

The upwind scheme of combining the diffusion and convection terms 
is defined here by means of an arithmetic statement function. 
Following this, are IF-statements which transfer control to the 
appropriate part of the subroutine depending on the variable being 
solved. Next the diffusion fluxes for the continuity cells on 
the current line and the one downstream (in the march direction) 
of it are computed in the DO-158 loop. The statements here are 
the Fortran equivalents of the equations given in Sec. 3.3.2(c). 

Care is taken to ensure that the diffusion terms on the boundaries 
are zero; the boundary effects being introduced through source 
terms later on. 

Chapter 2. Coefficients for u-equation 

In this chapter the f inite-diff ei’ence coefficients of the x- 
momentum equation are computed; (a) in the DO-26 loop when sweeping 
in the posit ive-x direction (INC=1); and (b) in the DO-27 loop 
when sweeping in the negat ive-x direction (INC--1). The programming 
sequences here are simply the Fortran equivalents of the equations 
given in Section 3.3.3. 

Next subroutine SOURCE(JU) is called to obtain the source terms 
and subroutine WALL to obtain the wall shear stresses. The TDMA 
coefficients are set up in the DO-290 loop and the back-substitution 
is done in the DO-292 loop. The residual errors are computed in 
the DO-291 loop, just before the u-velocities are updated by the 
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TDMA in tl\e DO-292 loop, 


Chapter 3. Coefficients tor v-equation 

In this chapter the finite-difference coefficients of the r- 
momentum equation are computed in the DO-36 loop. The coding 
is similar to that of chapter 2 above. Next subroutine SOURCE(JV) 
is called for the source terms and subroutine WALL for the wall 
shear stresses. The application of the TDMA is contained in the 
DQ-390 and DO-392 loops and the residual-error calculation is 
contained in the DO-391 loop. 

Chapter 4, Coefficients for pressure-correction equation 
In this chapter the coefficients of the pressure-correction 
equation are calculated (Sec. 3.3.4) in the DO-46 loop. Here it 
is ensured that when sweeping in the positive-x direction (INC=1), 
the west-coefficient AW is zero; since in this case only the 
east-side u-veloc.ities are affected by the pressure-correction 
equation. Similarly, when sweeping in the negative-x direction 
(INC=-l),the east-coefficient AE is set to zero. 

Next subroutine SODRCE(JPD) is called to obtain the error 
mass-source associated with the ’starred* velocity field. Finally 
the DQ-490 DO-492 loops contain a standard application of 

the TDMA to obtain the pressure-corrections. 

Chapter 5, Phi equation 

In this chapter, the finite-difference coefficients of the 
general $ equation are computed in the DO-56 loop (Sec. 3.3.2(c)) . 

Next subroutine SOURCE (JHII) is called to obtain the source terms. 

The application of the TDMA is contained in the DO-590 and DO-592 loops 
and the residual-error calculation in the DO-591 loop. 
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A. 6. 2 Subroutine CONST 


Subroutine CONST sets constants for use within the program. 

These are as follows: 

• constants x-elated to the total number of x and y grid points; 

• constants related to the storage of variables; 

• constants setting special points within the field to give 

pressure reference and monitoring locations. 

A. 6. 3 Subroutine FLOWM 

This subroutine is used for the calculation of the convection 
fluxes for the continuity cells on the current line and the one 
downstream (in the march direction) of it. The calculation 

is incorporated in several DO-loops in which the fluxes for the 
different faces are computed. The reason for splitting the 
computation into different DO-loops is that on any call to this 
subroutine only the fluxes which are required on that call may be 
calculated by accessing the appropriate DQ~loap. It will also 
be noticed that the upwindlng of density (e.g. equation (62)) 
in obtaining the fluxes is performed here, 

A. 6. 4 Subroutine ADJUST 

This subroutine is used to perform section-wise mass and 
momentum balance and cell-wise continuity balance. It is divided 
into three chapters which are described below. 

Chapter 1. Overall-continuity correction 

In this chapter section-wise mass balance is achieved. First the 
integral mass flow rate associated with the ’starred* velocity 
field is obtained: (a) in the DQ-100 loop when sweeping in the 
positive-x direction (INC-1); and (b) in the D0-1Q11 loop when 


sweeping in the negative-x direction (XIsO-1). Then the u-velocities 
are incremented by a uniform amount DELU in the DO-101 loop to 
achieve section-wise mass balance. 

Chapter 2. Cell-wise continuity correction 

In this chapter cell-wise continuity is obtained by correcting the 
'starred' velocities u* and v* as per equations (88) and (89) of 
Section 3.3.4. The pressure is also augmented by an amount 
equal to the pressure-correction times an under-relaxation factor 
(as in equation (105) of Section 3,4.2); however the mean pressure 
level is kept the same so as not to disturb overall momentum 
balance. 

Chapter 3, Overall-momentum correction - SNIP 
This chapter incorporates the coding sequences for achieving 
section-wise momentum balance. This follows the discussion of 
Section 3.3.5. The average correction to the pressure field 
(Ap of equation (97)) is obtained from the DO-302 loop. This Ap 
is added to the pressures downstream of the current line in the 
DO-315, DO-306, DO-30S and DO-309 loops, each of which deals with 
one particular part of the combustor, 

A. 6. 5 Subroutine GBOM 

This subroutine is used to calculate quantities associated with 
the finite-difference grid. It is divided into three chapters 
which are described below , 

Chapter 1, Radii 

In this chapter the radii of the grid nodes are obtained. These 
are simply equal to the y-coordinates specified in Chapter 2 of 
BLOCK DATA. 


131 


Chapter 3. Cell-node distances 

In this chapter the internodal distances DXG (DO-30 loop) and 
DYG (DO-31 loop) and their reciprocals RDXG and KDYG are calculated. 
The locations of the u-nodes, XU, are obtained in the DO-32 
loop. The distances between the u-nodes, DXU (and their 
reciprocals, RDXU) are then calculated in the DO-33 loop. Next, 
the v-node locations are calculated in the DO-34 loop and the 
distances between these nodes are obtained in the DO-35 loop. 

Chapter 3, Cell dimensions 

In this chapter the following quantities are calculated; 

• lengths of the main cells, SXG, SYG ; 

• lengths of the u-cells, SXU; 

• lengths of the v -cells, SYV j 

• the north and east face areas of the main cells, AREAN and 

AREAEj 

• the north and east face areas divided by the internodal 
distances, ANDDY and AEDDX; 

• the volume of each main cell, VOL, 

A. 6, 6 S ubroutine TEST 

The function of this subroutine is to print information for 
program testing and debugging. The level of diagnostic detail 
may be prescribed using the index KTEST (defined in BLOCK DATA) 
as follows; 

KTEST-1 ; prints out the geometrical quantities ; gives the variable- 
information * and prints the initial values in the field. This is 
contained in Chapter 1 of this subroutine. 

KTEST-2 ; prints out the Just calculated values of the dependent 
variables,' their residual sources ; the pressure-correction 




kLij: 


quantities, as well as all quantities for KTES1-1 . This is 
contained in Chapter 2 of this subroutine. 

KTEST=3 : prints out the finite-difference coefficients; the 
convection and diffusion fluxes, as well as all quantities for 
KTEST=1 and 2. This is contained in Chapter 3 of this subroutine 
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A. 7 The Thermochemical property subroutines, REACT and HOPS 

These subroutines are concerned with the input and calculation 
of certain thermodynamic quantities. They have been adpated from 
Ref . 3 with some changes. 

A. 7.1 Subroutine REACT 

The function of this subroutine is to read, store and process 
thermochemical data. This subroutine is divided into 4 chapters. 

In Chapter 1 certain quantities are defined through data state- 
ments. Then follow statements which cause control to be trans- 
ferred to the appropriate chapter. This depends on which of the 
words ELEMENTS, THERMO, MECHANISM, or a blank card is encountered 
in the data deck. Data cards must be in this order, since element 
data is needed to process thermodynamic data, and thermodynamic 
data for kinetic-mechanism data. If the chemical-kinetics 
solution is not required (i.e. KNTCS=0), the kinetic-mechanism 
data is not read. 

Chapter 2 deals with element data. Here one data card is read 
for each element considered. The contents and format of each 
data card are given in Table A.l. The total number of elements 
is designated by NLM. 

Chapter 3 deals with thermochemical data. Entry into Chapter Z 
occurs after completion of Chapter 2 and via statement number 
5. Four data cards are read for each chemical species considered. 
The contents and format of each data card are given in Table A. 2. 
After the data cards for each species are read, its molecular 
weight is computed in the DO-24 loop. The total number of species 
is designated by NS. 

The polynomial coefficients Z( I , J,K) for the thermodynamic 
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tab be a , 1 

.f: 1W' X-? ~4;i iWW Wr ^i ; 

KB BMRNT DATA CARDS 


OViU'V 

of data 
cards 

Con ton fcs 

Format 

Card 

Columns 

■ - 

Pi ret 

ELEMENTS 

3A4 

i to 8 

• 

Any 

One card for each element present in 



or dor 

the system* Each card contains; 




(i) Atomic symbol of element , 

A2 

1 to 2 


(;H ) Atomic weight of element. 

FIG . 6 

8 to 17 


(ill) Valence o.r oxidation state of 

the element (positive, negative, 
or aero) , 

F10.6 

18 to 27 

Bast 

Blank card. 

w* 







TABLE A. 2 

THERMOCHEMICAL DATA CARDS 


Order 
of data 
cards 

Contents 

Format 

Card 

Columns 

First 

THERMO 


3A4 

1 

to 

6 

Any 

A set of four data cards for each 





order 

species considered* The cards in 
sequence and contain: 






(l)(a) 

Molecular symbol or name of 
species . 

3A4 

1 

to 

12 


(b) 

Date. 

2A3 

19 

to 

24 


(c) 

Atomic symbols a formula 

4(A2,F3.0) 

25 

to 

44 


(d) 

Phase (pas only, letter G) . 

A1 


45 



<b) 

Temperature range, degrees K. 

2F10. 3 

46 

to 

65 


(f> 

Card number. 

115 


80 



(2) (a) 

Coefficients Z^(i=l,5) for 
upper temperature range. 

5E15.8 

1 

to 

75 


(b) 

Card number. 

15 


80 



(3)(a) 

Coefficients Z 6 and Z 7 for 
upper temperature range, 
and Z^ , Z 2 , and Z 3 for the 
lower range. 

5E15.8 

1 

to 

75 


(b) 

Card number. 

15 


80 



( 4 ) ( a ) 

Coefficients Z^Ci^i,?) for 
the lower temperature range. 

4E15 . 8 

1 

to 

60 


(b) 

Card number 

120 


80 


Last 

Blank 

Card. 

- 


- 
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TABLE A. 3 


REACTION MECHANISM DATA CARDS 


Order 
of data 
card 

Contents 

Format 

Card 

Columns 

First 

Any 

order 

MECHANISM 

One data card for each forward 
(or optionally, reverse) reaction 
considered . 

Each card contains: 

(i) Molecular symbols of unto 

3A4 

1 to 9 


three reactant species*, 
(ii) Molecular symbols of upto 

3( 2A4) 

1 to 24 


three product species* . 

3(2A4) 

25 to 48 


(iii) Exponent B j ♦ * . 

F8.3 

49 to 56 


(iv) Exponent N^**. 

(v) Activation temperature T ac ^. e*-* . 

(vi) (a) For forward reactions, 

F8.3 

57 to 64 


F8 . 3 

65 to 72 


date or comments. 

(b) For reverse reactions. 

2A4 

73 to 80 

Last 

REVERSE +. 
Blank card. 

2A4 

73 to 79 


♦Molecular symbols must be identical to those used in 
thermochemical data cards. 

♦.♦Quantities as defined in: 

k fi = 10 B j T N 1 exp (-T act ./T) with units 

m / (k.a-mole'-sec) for bimolecular reactions, 

6 o 

and m / (kp-mole) sec for termolecular reactions. 

+ When REVERSE is specified, Columns 1 to 48 are ignored. The 
data card with reverse rate data must follow immediately the 
card with the corresponding forward rate data. 
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properties are divided by the respective molecular weights in the 
DO-27 loop. Since the present program performs computations 
with species mass fractions rather than mole numbers, the co- 
efficients will be required in this modified form. 

Chapter 4 deals with kinetic-mechanism data. Entry into Chapter 
4 occurs after completion of Chapter 3 and via statement number 
5. One data card is read for each reaction considered. The 
contents and format of each data card are given in Table A. 3. 

In statements 33 to 38, the numbers to be stored in the ID (N,J) 
array are calculated. ID (N,J) is equal to the species index 
number I (I~1,NS) of the Nth (N=i,4) species which appears in the 
Jth (J~1,JJ) reaction. 

Thus for the reaction 

N + NO = N 2 + 0 (Jth reaction). 

ID (1 , J)=IDN, ID(2, J)=IDNO, ID(3, J)=IDN2, ID(4, J)=*IDO. IDN, IDNO, 
etc., which identify the different species are defined in Chapter 
3 of subroutine BLOCK DATA. 

The rest of Chapter 4 is devoted to the computation of the reverse 

i 

reaction rates, for each forward reaction rate just read in. 

The reverse reaction constant is obtained from the ratio of the 
forward reaction rate constant and the equilibrium constant. 

This is done tor fifteen temperatures between 1000°K and 3000°K 
and the reverse rate parameters are obtained by a least-square 
linear regression analysis. Details of this computational 
procedure are given in Ref 3. 

If however, the reverse rate data is also supplied on a data card 
which is subequently read, the calculated reverse rate parameters 
are overwritten. This is indicated by the statement just 
preceding statement number 32. 


Subroutine REACT is called from Chapter 4 of subroutine MAIN. 

A. 7. 2 Subroutine HCPS 

The function of this subroutine is to compute certain thermodynamic 
quantities (See Section 5.2). 

On entry into this subroutine a check is made to see if the 
temperature is less than 1000°K; this is to decide whether to 
use the coefficients for the lower (temperature <1000°K) or the 
higher (temperature >1000°K) temperature range. Depending on 
the value assigned to the variable IHCPS, the following properties 
are computed; 

(i) IIICPS « 1 : The non-dimensional species enthalpy HQ(I) and 

the non-dimensional mixture enthalpy 
HSUM are computed in the DO -5 loop. 

(ii) IHCPS « 2 : The non-dimensional species enthalpy HQ(I), the 

non-dimensional mixture enthalpy HSUM and the 
non-dimensional mixture specific heat CPSUM are 
computed in the DO-10 loop. 

(iii) IHCPS *= 3 : The non-dimensional species enthalpy HOC!)* and 

the non-dimensional species entropy $0(1) at 
one-atmosphere are computed in the DO-20 loop. 

Subroutine HCPS is called from ; 

(a) Subroutine REACT, Chapter 4, during the computation of reverse 
reaction rate parameters, with X HCPS =3 ; 
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(b) Subroutine MAIN: 


• Chapter 5, to obtain inlet enthalpies of the fuel and air 
streams, with IHCPSd; 

• Chapter 9, to obtain the mixture enthalpy and sped tic heat, with 
IHCPS-2; 

(0) Subroutine GHEM: 

• Chapter 1 (ENTRY TEMP) , to obtain the mixture enthalpy and 
specific heat, with XHCPS»*2 . 



appendix b 


LISTING OF THE NASCO II COMPUTER PROGRAM 



f 


[ 


1 l JLJLJL -L-l™ 


I }' > 


«***! U..U 


BLOCK DATA 
cgmhun/copa/ 


LM *+ U 0 ) ♦ Vi 475) *11(500) .FM( 50 0) .f UE ( 500 > .Fs ( 500 * 15 ) . 


1 1*4’ < an > i H.H(500) «P(414) «KHO(500) »tMU(500> ♦ 

1 l'XG(25> .L!XU(25) tK0UIJF(25) .HOXG(25> .RdXU(P.S> ,RSX6(25) ,RSXU<25) 

2 S I ORE ( 25 > «SXG(25)'HXU(25) » X ( 25 ) « XU ( 25 ) » 

3 A ( 2l) ) ♦ AF ( 20 ) ,AiJ< vAREAE(20) iAS(20) *ASNIP(2G) • A W ( 20 ) » B ( ?0 ) « 

4 USD IP ( 20 ) t C ( 20 ) » ' HlP( 20 ) * UlFE ( 20 ) « DIT EE ( 20 ) »U IFN ( 20 ) « 

5 UlFflf(20> «USNIP(20) « DU ( 20 ) » DV ( 20 ) t D YG ( 20 ) .DY V ( 20 ) • 

6 FLOrtC(20 > «FLnwEE ( 20 ) t FLOWN ( 20 ) ♦FLOWNF_( 20 ) »FLOWW <20>«IX(20)* 

7 RUYb ( 20 ) ,mJTV(?0>il<SlfG(20) •RSYV120) , RV ( 20> . RVCB < 20 > tRVSU ( 20 ) . 
« SP(20> iSu(20) »SYG<20) *SYV(20> . Y(20) . Y V ( 20 > ♦ AtUUX ( 500 ) . 

9 AMUDYtSOn) • ARC AN (500 J i VOL (500) ♦ 

X ARSL(25.25) »PI!CrF(25) «PRL(25) ,PRT(25> «RSLIME(25»25> , 

1 ILW(25» . ILAST(2.5) »1M0I\I(25) »IXNY(25) . IZERO ( 25 ) , KSOL VE < 25 ) , 

2 RSRCF ( 25 > * RSSUM ( 25 ) i II1LE(25) 

DIMENSION Uirm-,(20) • DIFWW ( 20 ) , F ( 11009 ) . FLOWNW ( 20 ) ♦ FLOWWW ( 20 ) 
EQUIVALENCE (FlDtUUNN FLOWNW ( 1 > . FLOWME <!>)*( FLOWWW ( 1 > , 

1 I LOwFE(l) ) » (OIFNWU) .UIFMEU) ) . ( DIFWW ( 1 ) « D IFEL ( 1 > ) 

cohmon/como/ 

1 AK « ARRCOf I »BlG «CC|(LUK »CMIX » DATA (6 ) ,Up t ELI i tL2 «LMA « LMF *EMu‘rEF « 

2 t PST * COR AT • EwALL * FLOb iFLOC i FLOW IN * FLOWS T iFLOWUPtFSTOICi 

3 r STOIM*FUH«FIJC»IIFU«HWt INC* INERT * IPLRS* IPREr i IPRINT* ISNIP* 

9 1 SWEEP * I X » I XiMOM 1 1 XPREF 1 1 XP1 1 1 XU * I XUP1 « I X W » I X1N Y • I X1NYU * 

5 IXlNYl.IX2NY0.IX2NT2f 1 YF t I YFM1 t IYFUEL t I YL« I YLM1 » I YLP1 . lYMONt 
b IYPREF *1 YW. IYWM1. ITWPli JEMUt JFM«JFUE? JN» JLAST, JP. JPPt JHHO. 

7 JSl ,US2*J1EM, JU, JV.KASL.KINPRI t KLT » KR AD • KRIIOMU ♦KSWLLP , KTEST ♦ 

U LADPHI .LSWLLP*MSaLVE,NTDMA,rJTf1AX»NTRAV,NUMCOLtNX,NXMAXtNXMlt 
9 IIXM2.MXY(.;.NXYP»NXYU,NXYV*NY,NYMAX,NYMI.NYM2*0XB.0XC.PJAY. 

X PKI.CXP tf’RESS * RELAXP »RF » RFSTM i RSCMEK » RSHAX «Mi 1 1 RIO « R2I t R20 • 

1 SIOICH.TM* I C ♦TINY * TMAX * TMIMt UB « UCt WMI X 
LOGICAL CQNVG 

COMMON /INDEX/ IL>COt JDC02 ♦ IUF . IOH, IUH2* 101120. IUO. IDOR, ID02i IDN 

1 IDMo t IDNU2 * IDM2 ♦ IDN2U » IEQU IL ♦ IHCPS ♦ IPR ♦ JJ ♦ KIJTCS , ’JA i NLM « 

2 MS i IJSL1 1 NSL2 » I'JSK « NSM « NS1 1 NS2 ♦ ID (4 » 15 ) 

3/PARAMS/ CUMVG.EMVtLPSS,GASCON.IDEBUG,lTMAX,PA,SM,Tl|JYK.TK.TLN 
5/SPLCE-S/ARUB(20f3) »CPSUM . HSUM . HO ( 1 4 > .SMW(14) ,S0(14) .Sl(14> ♦ 
b S2 ( 14 ) ♦ Z ( 2 « 7 » 14 ) 

7/CtUUIL/ACl « AC2 ♦ AC3 * AC4 » AH1 1 AH2 ♦ AN3 ♦ AH4 ♦ ASM1 • ASI12 » ASM3 ♦ ASM4 $ 

« AS 1(4,7 ♦?> tNDIVtHMAX.HMIN.PCXPm 

9/RLACTS/BX ( 15 ) <0X2 ( 15 ) ♦ TACT ( 15 ) i TAC 1 2 ( 15 ) , TEN < 15 ) .TEN2(15> 
COMMOIJ/IITR/ ALMR1I»ALMR10.ALNR2I »ALNR2O,C0MD.EL3. 

1 LhlS 10 i L‘11S2I ♦ EM1S20 ♦ EMISX i « EHISXO ♦ RCMI ♦ RHOINF , 

1 SIGMA.STX1 tSTXO. SHI ♦StT0,ST2I» ST20.TINF. UINF.V INF iWAREA 


CHAPTER 1 

c— — 

UA I A 
DA I A 
DA I A 
DATA 
C 


PRELIMINARIES 


TIIJYK , I NY/1 .0E-2U, -40.0 517/ 
DIG » TIN Y/l , 0E15 ♦ 1 . UE- 10/ 
KILST/U/ 

KASE/1/ 


BD000010 
BU000020 
BD000030 
BU000040 
• BU000050 

BU000060 
00000070 
ooooooeo 

BD000090 
DU000100 
BD000110 
BD000120 
B0000130 
BD000140 
BD000150 
BD000160 
BD000170 
BDOOOlQO 
BD000190 
BD000200 
BU000210 
BD000220 
B0000230 
BD000240 
BU000250 
BD00O2C0 
BD000270 
BD000200 
BU000290 
BQ000300 
BD000310 
BD000320 
t BD000330 
BU000340 
BD000350 
. TNYUD000360 
BD000370 
(3U000380 
BDOOO 390 
00000400 
BU000410 
BOO 00420 
BU000430 
BD000440 

BUO 00450 

1 BU000460 

-.,,-00000470 
BO 000400 
BU000490 
BD000500 
I3U000510 
BU000520 
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4 3 3 3 3 3 4 DEPENDENT VARIABLES 3 3 3 3 3 3 3 


CHAPTER 



c — — - VARIABLES SOLVED UY TUMA 

DATA JU * JV * «JH « JFM > OF UL . JPP/1 , 2,3,4,5,21/, JS1 , JS2/6 , 20/ 

C AUXILIARY VARIABLES 

DA I A J1LM, JP, JRHO.UtMU, JLAS T/22 .23,24 ,25,25/ 

DAI A IDfJ,lDI'JO,IDNO2.IDN20,IDM2»IUP,iDd2. IDCO 
• 1 IOO,1UUH ( IPK/1.2.3,4,5,6,7.6.9.10,U,12 

[)A I A NSK/4/ ,NSE 1/0/ , NSE2/14/ 

C I HE NUMBER OF DEPtNUENT VARIABLES SOLVED 

DA I A MSOLVL/b/ 

KS0LVE/5*1 , 15*1,5*1/ 

KELAxP/0.1/ 


, IDC02 » IUH * 1DH2 « 1DH20 
,13,14,15/ . 


CHAPTLR 2222222 GRID AMP GEOMETRY 22222222 BD000530 

C - I3U000540 

DA I A X/A»0» u »05,0.0 7,0.12,0.17,0, 1875,0.1975,0 * 2025,0, 2075, 16».,21/BDOOOS50 
DAI A Y/0. 0,0. 0005, 0.0015, 0.00275, 0.00325, 0.00375, 0.00475, BD000560 

1 (1.00075,0.000,0.009,10*0.009/ BD000570 

DATA RF, R1 1« K 10, R21«H2U, ELI, LL2/0. 001, 0.003, 0.0035, 0.009, 0.0105, BUO 00580 
1 0.2,0.01/ BU000590 

DA I A IYW, IXW , iyrUCL/5,7 ,2/ BU 000600 

DA T A IIXMAX , MYM AX/25 , 20/ BD0006l0 

DA I A NX, MY/10, 10/ BD000620 

DATA KRAD/2/ BDOOO63O 

BUOOO 64 O 

BPOOO 65 O 
-B0000660 
BD000670 
BDOOOGoO 
OOOOO 69 O 
BD000700 
.BD000710 
BU000720 
BU000730 
BD000740 
BD000750 
BD000760 
BD000770 
BD0007Q0 
BU000790 
BD000800 
DU000610 
00000820 
-BDOOO 83 O 
BD000840 
-BDOOO 85 O 
BD000860 
BU000070 
BD000080 
BDOOO 89 O 
B000090U 
B0000910 
BD000920 
BU000930 
BU000940 
130000950 
BD000960 
BU000970 
(30000980 
BD000990 
B0001000 
BDOOlOlO 
BD001020 
BD001030 
bU001040 


DA I A 
DA I A 
LlAIA 


( 1 TLt/ * 

, 


U 

(I 

F 

112 

PP 


• . •emth* , ' 
• .• N02' .» 


V 

MO • , • 
02 » , • 
H20 * . • 
1 EM ' ,• 


FM '.'FUEL', 


CO 

0 

P 


N20« 

C02* 


• , • OH • , • 

»,» 


M 2 

H 

PR 

EMU 


• . 
• , 
•/ 


CHAPTER 

C- 

C- 
C -■ 


4 4 PROPERTY DATA 44444444 


-S. 1 • UNITS. 

■THERMODYNAMIC properties. 

DA I A NTMAX/10 / , EPST/O • 001/ 

EPSS/O. 001/, H MAX/50/ 

IDEDUG ,KlJTCS .KSWEEP/O ,1,50/ 

IL0U1L/1/ 

HUIV,hMAX,HMlN/-0.24E6,-2. 16E6.-1.0E7/ 
ACl,AC2,AC3.AC4/1.294E-01,9.U9 , JE-05,-2. 
AHl,AH2.AII3.AH4/-1.579E+03,7.4l2E-01,-4 


DA Ti 
DA I A 
DA I A 
DATA 
DATA 
UA I A 
DA I A 
DA I A 


1 

2 

3 

4 

5 

6 
X 
1 


A SMI , A SI-12 • ASM3 
AS1/-2 .lPfcE+Ol 
-5.9H1E-01 
-3.526E+01 
-2.25BE+01 
-7.981E-01 
-3.131 E +01 
-1.950E+01 
-1 . 396E+01 
-6.482001 


ASH4/3.4l5E-2,9.3l6E-6,- 
1.293E+02.-4.798C+02, 7 
-5 . 580E-03 , 1.015C-01.-4 
1.850E+02.-6.634E+02, 1 
1.089E + 02.-3.990E + 02, 6 
-4.694E-03, 8.745E-02.-4 
1.8S3E*02,-6.407E+02, 1 
1.14UE+02.-4.013E+02, 6 
5.088E+01.-4.642E+01, 1 
4.791E-0t,-1.261C+00, 4 


507E-08,2.163E-12/ 
.360E-04.1.075E-07/ 
7.330E-9.1.716E-12/ 
•899E+02 , 

.767E-01, 

• 072E + 03 « 

.552E+02, 

.284E-01, 

•020E+03, 

.375C+02, 

.943E+01, 

.391E-01, 


ORIGINAL PAGE IS 
PE POOR QUALITY 
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n <"> 


2 -2.47AL+01, b.imE*01.-b.9b9L*01, 2.93lE*0l, BD001050 

3 -1.640E+01* 3.0GOE + 01,-3.902F. * 01 , 1.66UC+01 « BOOOlObO 

4 -8.100E-01, 1.002E-U1, -6. 2371.-01, 2.417E-01. BU00J070 

5 -2.0e>f,r;40lt b.916E*01,-7.2U0C+01, 3.053E+01, BDOOiOGO 

b -1.209E+01, 3.bl5E + 01,-4.4l5E-Mll* 1.871E*01/ BU001090 

OAIA PLyP/-0.5,0.0«-0.75,-0.5»0.0«-0.5,-0.25/ BOOOllOO 

DA I A GAStuN/U3l4.4/ BD001U0 

OAIA rMllUTMAX/POO. 0,4000.0/ , B 0001120 

OAIA SU)1CII.ARRC0N,PRlLXP/4. 0,10000. 0,0.01/ B0001130 

DAI A Hr U, CM IX, W MIX/4, 0L7, 1100. 0,29.0/ BDOOIIhO 

DATA EMUREr/l,Af -5/ BUOOH 5 O 

OAIA PRL , I '(<1/2*1.0,23*0. 7, 2*1. 0,23*0,06/ BDOOllbO 

DATA AK , LwAEL/O ,4 3 b *9.0/ BDOOII 7 O 

OAIA KLT/2/ BUOOlloO 

DA I A tNCKTV2/ BDOOII 9 O 

C BD001200 

CHAPTER bbbb5555 STARTING VALUES 5 5 5 5 5 5 5 5HD001210 

C =-----BU00l220 

DA I A ISWECP/O/ BD001230 

DATA ARSL/S25*0 , 0/ BDOOI 24 O 

DA I A RSL1IJE/6?5*G . 0/ ' BD001250 

DA I A IXM0I1. iYMOH/3,3/ BD0012&0 

DATA IXf'RLF .lrPREF/2,2/ BD001270 

DATA FiDV/lia«9*0. 0 , 20 * 0 . 0 / BD 001200 

DA 1 A OIFL , 01 F Lr ,DirU , UIFME ,U1FW/100*0 , 0 / B00012g0 

DA I A FLOWF. , r LO.JEE , FLOWN, FLO WNEiFLOWW/ 10 U*0 , 0 / BD00130 0 

DA I A HKLSS/2.0E5/ BD001310 

DA I A EHF,LMA/l.4t-b,3.6t-4/ BU001320 

TWO STREAMS ENTERING - STREAM 8 IS PURE FULL, ANlJ STREAM BD001330 

C IS AIR. BU001340 

DA I A TB « TC/275 • 0 , 27b , 0/ BD001350 

DATA TUB, ruC/1.0,0.0/,(JXB,OxC/0.0, 0 . 23 ?/ BD0013&0 

BD001370 

CllAPIER 7 7 7 7 7 7 7 BOUNDARY CONDITIONS 7 7 7 7 7 7 7 BD001300 

C - - - BD001390 

DA I A COMU/4 1.04/, SIGMA/ 5 , 67L-B/ , BD001400 

1 S rxi,sixo/2*0.003/»srll,si 10/2*0 *003/,Sl?I,ST20/2»0.003/ f 80001410 

2 Ulfir/1 • / , VINF/1. / » I INF/300 , 0 / .RHOINF/l . 0 / BD001420 

3.LMIS10,L'US21,LMIS20,LMISX1 ,EMISXO/S*0.05/ BD001430 

C — BUO 01440 

CHAPTER A a A A A 6 b 0 0 ADVANCE 8 08008080 BUOO 145 O 

BU0014bO 

DA I A N IUMA/ 3/ BUOO 147 O 

C UDO 01480 

CHAPTLR 11 11 11 11 11 11 11 PRINI 11 11 11 11 11 11 H BD001490 

C BD001500 

DA 1 A KlNPlU/1/ BD001510 

DA I A NUflC’lL/lO/ BU001520 

DATA IPLRS , lPRlHT /bO , 200/ BD001530 

C 

CHAPTER 12 12 12 12 12 12 12 ULCIUt 12 12 12 12 12 12 12 BU0G1550 

- I1U0015&0 


BU001570 

00001500 

00001590 


UAIA LSWCCP/150/ 

DATA HSCUCKiCCHLCK/O. 01, 0.005/ 
0)0 


r> n 


MAOOOOl 0 

C- 1-11 1 MA000020 

CHAPTER 0 |1 0 D n oECLaKA TJOIJS 0 P rj 0 li 0 0 f| 0 n MAOOOOXO 

c 1 mAOOOO^O 

tVP'-'OMA.O lAX U( 4 R 0 ) » V ( 4 75 ) . 11 ( 500 ) , FM ( 500 ) • FUE ( 5 l) 0 ),rS( 500 , 15 )» MAnOOOPO 

1 » P<? 9 ) ,Tr M( 15 f) 0 ) ,pm 4 ) ,RliO( 5 nn> ,EMU( 500 > » MAOOOOgO 

1 i.AG(?5) ..iXtUas) ,K0U(ir<25) , RPXG<25) »RnXU<?5» ,RSXG(25> .l<SXH<?5> . MAP00 070 

2 STOKE r 5) ,SXG<?5) ,SXU(25) ,X<?5) ,XU<?5> , MAOQOOrtO 

3 l ( P P > . ' F (2d ) ./Wl(?0 > ,ARLAE<?0> ,AS<20> , ASNI.PI 20 I ,AW<?0) ,0< 2P ) . MAf)00090 

4 I S f J I r ■ C »' 0 1 » C ( 20 ) ,tSHIP(20> ,DlFf:<20) iQTFEf:<20> .UIFNiPO) ♦ MAOOniOO 

5 f I FI If (; n I » JIFUIPO) .DSOiPtPO) , DU ( 20 ) , I'V ( 20 ) .UYG< 20 ) ,DYV< 2 n ) . MAnOOll 0 

A r LOh. (, o ) *rLm;(- r. (20 ) , FLOWN ( 20 ) .FLOWNf. (20 > ,rLOWW (?0 ) ,R (20 I , MA 000120 

7 UYii ( 2 1 * ) .l<UYV(? 0 ) ,RSYG( 2 l>> , RS YV ( 20 ) ,f! V ( 20 ) ,RVCf !<20 > .KVSO<? 0 > . MAOOOIOO 

ft SP(?fJ> .S i <20 I . SY(,< 20 ) ,GYV< 20 ) .Y( 20 ). YV( 2 U) • AEOUX < 500 ) . MA 000140 

') AllDsirCiOii) »ARCAM( 500 ) .VOL( 50 ()) . MA 000150 

X APS l (<?*■* ) *i'nr.FF < 25 ) »I'RE ( 2 SV 1 * PW 1 ( 25 ) »KSL INE ( 25 * 25 ) * MAOQOlftO 

1 I E W < 2 5 ) . (LAST (25 ) , IMON ( 25 ) , I XfJY (25 ) . I7EK0<?5) .KSOLVE < 25 ) , MAO 00170 

2 'SKI F ( '5 ) » RSSlifl (25>»TXTLL'(25) MAOOOlAO 

I.UMKNSlOlJ UIFMW(20) *QU tfiW ( 20 ) ,F(llO09) 1 F LOWI IW ( 20 > .FL0WWM20) MA000190 

LOUT vAL r NfE im ) ,U< 1> > , (rLOWflWU ) .FLoWMC.n > > » (FLOP Ml). MA000200 

J I LOyftf 1 ) ) » (OirMW( 1) »DIFNE( 1 ) ) ♦ (OlFWul 1 ) .OIFL'F( 1 » ) ‘ MA00021 0 

r.OW,IOIl/C:)M'V MA000220 

1 AK. AllflvQ.lt H1«*CCHCCK. CriIX. HATA (6) .Up,. CL J .£(-2»EnA,EMF,EHUREF, MA0002*0 

2 EPS I »C.‘R AT , E*'J ALL » FLOP .FLDC , FLO WIN, FLOWS! .FEOWUP.FSTOIC. MA000240 

3 FSTOIM.FilU.FUC.lirUtHw. INC, INERT , fPLRS. 1PREF . iPRlfJT, ISUIP. MA000250 

4 1 SWlTP. r> tlXMOM, IXPRCF , IXP1.IXU, IXUPl, IXW. IXlNY. IX1NYU. MAn002*0 

5 tXl.m, JX2l'Y<l.lX2NY2,lYF,irFMl,lYFUEL,IYL, lYLMl,rYLPl.lYM0lsl. MA0Q027O 

6 lYPni.l « I YW « I YWM1 » I YWP1 , JEMU , JFM » JFUp , JH , JLAST , JP , JPP « JRHO « MA0002«0 

7 JS1 , JS JTEM, JU, JV.KASL.KINPRI , KLT .KRAD • KRIIOMU , KSWCEP , RTFS T . MA0 00290 

0 l/tBPill , LswEEl', I ISULVE » NTDMA.NTMAX .NTRAV .NIJMCQL ,NX .NXMAX , NXMl . MA000 30 0 

9 t'XKP.II 'Yo »IIXyP » NXYU .MX YV ,NY , NYMAX ,NYMl .NYM2.0X0 ,OXC »PJAy « MA00031 0 

X I’ltLC- <P .1' *ESS,PFLAXP,KF,KFSTM,RSCMEK,KSMAX,K1I .K10.R2I.R20, MAO 00320 

1 srOlCU .T i .TC , T IN Y ♦ EMAX , T^IN , Ui) . UC » WMIX MA0003XO 

Lt-OlC/.L C.ilJVG MA000 34 0 

Cf.A5K.oU /I • IL)L X / TUt0.lUC02iIDF.IDH, 10112.101(20, 100, 1U0I|,ID02.IDN, MAP003H0 

1 J EM J t » . I * N )2 , II III? , 10M20 1 1 Et'IJIL . 1 1 (CPS . IPR , J J , KNTCS .HA , WLM . M«u003fi0 


2 f 5 S , • . S E 1 , , ' S E 2 , r J S K , N S M , r i S 1 . N S 2 . 1 D ( 4 . 1 5 » 

3/F AKa.'S/ fO'IVO ,EMV .EPSS .GASCON . I0EI3U0 . T TMAX .PA ,SM . TlMYK . TK» 
t)/:,PEd;s/A"u.5(2o ,3) • cpsuf 1 ,hsum ,iio( 14) ,f;rnm4 ) ,so(i4) ,sid4 > . 

h S?( 14) ,2(2.7,14) 

7/CLDHIL/At 1 , A C 2 . A C 3 ,AC4 .AH1 .All? .AH3.AII4 .ASCII .ASK2.ASKi3.ASM4 
nSl (4 tft>i * 1 10 IV .UMAX .lll-il I J .f’LXP ( 7 ) 


TLN 



MA000370 
1 TNYMAO0O3R0 
MAP00390 
MA000400 
MAO 0 041 0 
MA000420 
MA000430 
CJ|An00440 
MA0004S0 
MA0004fiO 


C 1 ___1 MAO 0 0470 

K 1 1 1 1 1 1 1 1 1 1 1 PKCLIMINARICS 1 1 1 1 1 1 1 1 1 1 1MA0004A0 

.,1 111-1 — MAO 00490 

MA000500 

C Flow til A TWu-COllCI'HTIiiC-1 UUE COMBUSTOR. MA000510 

C MA000520 
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* 

* 


i 

c. : _ : : — : — — i-ii- i — - — -I-I-maooosso 

CHAPTER 2 ? 2 2 2 2 2 2 GulO 222 2 222222222? 2?? ?MAn0O5j4O 

r-,-- 1 . MA000550 

r (jUAIJT I TICS RELATED to NX AND NY MA0Q0560 

CALL COMSt (?) MA000570 

C- CALCULATE GRID QUANTITIES MAOOQ5RO 

Ci LL OF. PM • MA000590 

IF(KTEST.GT.O) CALL TEST (11) MA000600 

C 1 1 111 ... -1-1-MA00061 0 


CHaPTFR 3 3 3 3 3 3 3 VARIABLES 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 MA0006P0 


C- 

c. 

i n. 

1 c 
1 ^ 

1 < 
1 > 
1 

1 • 
1 • 
I • 

LF II ID TCES ARE DEFINED TN CHAPTER 3 

OF BLOCK DATA. 

._-MA000630 
MAO 00640 

c 




MA000650 

c 

JU 

tl-VEl.OCI rY 


MA000660 

c 

JV 

V-VtLOC 1TY 


MAOOO 67 O 

c 

JH 

STAGNATION enthalpy 


MA0006A0 

c 

JF M 

'ilIXTURL FRACTION 


MA000690 

c 

jfur 

UNbUrtHT FUEL MASS FRACTION 


HA000700 

c 

jpi* 

PRESSURE CORRECTION 

v ■ 

MA00071 0 

c 




MA0007PO 

c. 

ThljlCCS OK 

SCCOMOAR Y VARIABLES ARE l 


MA000730 

c 

jlEr 

TL ^PLKATURF. 


MAO00740 

c 

OP 

PRESSURE 


MA000750 

c 

JRIIO 

DENSITY 


MA0007g0 

c 

JEHU 

rFFECTIVh VISCOSITY 


MA000770 

c- 



MA0007n0 


CALL COliSt (3) 


MAO0O790 



IF(KTEST.GT.O) 

CALL TEST (12) 

MA000800 

r 

* ■ 

* ’■ * 


. ‘ MAnnnm n 

CHAPTER 4 4 4 

4 4444 property data 4 4 

4 4 4 4 4 4 4 4 4 4 

4 MAoOobpO 

f 


w » " *. * 


-MAnOnA^O 


CALL REACT 


MA000040 


if (iaT. 

E:j. 1 ) so TO 402 


MA000050 


UO 4(jl e 

=1. JPP 


MAOOOBgO 


401 PKEFriJ) 

= I'RT(J) , 


MA000870 


GO To 41' 4 

, 

MAOOOQflO 


402 DO 403 J 

= 1 1 JPP 


MAO0O890 


4 03 PKEFt (J) 

=PRL( J) 


MAOO09OO 

c- 



VALUES IN FIELD 

MA00091 0 

c 




MAO0O9P0 


4 04 RltORKF =1 RF S'?*WMlX/(GASCOf|*TC) 


MA000930 


CIO 40 1 = 

1 ,n*yg 


MA000940 


RllO< 1 )=,. 

llt4<EI 


MAO0O950 

na 

CfiU( I )=t 

MtlRI-F 


MAO 00 960 

c 




HA000970 


fsIctjcsc 

xc/(oxc»-sroicii) 


MA000980 


moiii=i 

• 0 “F ST U1C 


MA000990 


RFST;*=I. 

0/F ST Gif! 


MA001000 

r 

■ ' 


' * 

MAnm n 1 0 

CHAPTER: 5 5 

5 '5 5 STARTING PREPARATIONS 5 

5 5 5 5 5 5 

5 MA0010PU 

c- 




MA001030 


C NA001040 
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CALL cons r( si 

LI 3=R2U-K2I 

III MI = 1.0/LM1S21-1.0 

R2Fi=0.!i*<R2IMT<«>I> 

hAR£AaH^«-|R20-H2n 

At IJIUJSAL0G(R(IVW»/R1I > 

At IHUOsALOG ( RiO/R 1 1 Y W )) 

At I4R2T = AL0G<R2M/R21 > 

AlNR20=AL0G < R20/R2M I 
C 

P(.GSCrl=PRFSS/r,ASCON 
Pl:B=1.0-l IIU-UXU 
Plx'ts). . O-FtiL-OXC 

Wti*OxB/S'M.>i ( 1UC1? ) ♦FUR/SHIn ( IDF ) +PRI1/SMW ( ION? I 
W(,=0\C/ >|lv, ( lunp ) +F UC/SMW ( IDF ) +PRC/SMVI (JON* I 
Hiioe=puPGui/mHro) 

|<l'OU=l*'UBSr.N/(WC*TC) 

I LUUsuM /r,.203lUS3 

Ft UC=t MA/A • 2G31A53 

II.UUI'l=rL,'lU+FLOC 

IltCPs=,l 

nsi=ior.. v 

I)S2=JIRV 

ThsTI! 

SM luri«>)=l>|{ii 
siMiun-mu 
S/( Ili02)=uxn 
call hci s 

eiiTH!i=IISU'-,*GAsr.OM»TB 

Ti := rc 

S;.>(IfiH2lai»RC 

*um iur )=» ijc 

,SMll'Og»=uXC 
CALL IlCt'S 

CUTIIC-IISU ..*GA.SC.OII*TC 

lit =l*i oc/ ( ii.b*rmoc*<iUl tRF)*(RjI-RF ) ) 

UI:=FUOB/ ( ,1 . H*mtDli*RF**2) 

nwi’i=irwa 

nwMi=i i w-i 

C j.tOIMAUsSTIIG FACTORS. 

HSKEr I J'.U sFL()'Wltl + UC ‘ 

RSKCFIJvIr RSRf'K I JO > 

RfsRF.r lO’iJaASSir II I lll)*FLOO + ENT||C*FLOC ) 

RSKCf ( JFH >=FLOW III 
RSRGI < Ji-Ur )=FLOWlD 
RMU'f I Jt*| ' ) =t LdWlM 

C in IT I AL ISd OD EMDO-IT VARlAliLF F iLl OS 

I inUT- ( L‘ IT ; +FLO0 *LNTHOf LOC ) /FLOWIN 
F ( . U r = { F I ■ U « I ■ L 0 ru r U C * r L 0 C ) / r L o w I N 
nx()Ul = (: X!5*FLOh+OX€+FLOCI/FLOWlt'l 
t L20M I' 2 l Pi<U *1 1.01 ■ H’RC*FLOC ) /FLOW IN t 

f IlDR. IT = A|i‘.,vx 1 1 T 1 1 1 Y » ( F 00 1 - F STOIC ) *R|- STM ) 


MAOOlOsO 
MAOOIOaO 
MA 0 O 1 O 7 O 
MAOOIOaO 
MAOOIO 9 O 
MAOOllOO 
MAOOlli 0 
MAOOllpO 
MAOOllsO 

MA 0 OII 4 O 
MAOOllsO 
MAOOIIaO 
MAOOUtQ 
MAOOllnO 
MA01H190 
I MA001200 

, MA001210 

MAO012P0 
MA0012A0 
MA001240 
MA001250 
MA0012A0 
MA001270 
MAOO 12ft0 
MA001290 
MA00I300 
MA00131 0 
MAOO 13?0 
MA001330 
MA001340 
MA001390 
MA0013ftO 
MA001370 
MA0013HO 
MA001390 
MA001400 
MA001410 
MA001420 
MAOOI 43 O 
MA001440 
MA001490 
MA0O14AO 
MA001470 
MA0014R0 
MA001490 
MA001500 
MAOOtSiO 
MAo015?0 
MA001530 
MAOO 154 O 
MAO015S0 

madoibao 


PkOUi-sU OUT-i Ui\UllTi*U.U+STOlf,iO 
n\Ol\l'T=f'Mf\Xl t’tlMt, ( l.U"hOUT/FsT(JU:) *oxn 
n -RNTsTl’ ♦»if»JMl OUr-PUuKHT I /CM1X 
UllOIJHTsnjt.SCWiwtUX/TlJIU'il 

UOUTsFLv W?N/(0.5*llM0UUl *tUal+»10)*(H?I-Hl0) > 
uu bo n=i,tiy 
It jlY. LI . I YPUPU GO TO 51 
II (IY.U. I Y 0 ) Of' 10 5b 
II UY»GT . IYW) GO TO S'i 
Du b 7 t.’si tM#M 
IrlYv M1X-1>*IIY 
IK I JaVC 
57 UfilllslC 
01 , To 55 

51 Du 5^ 1 .s — 1 olXMl 
IslY+lIX-l >*NY 
U 1 1 ) -UIJ 
mUsfcHiun 
Fim)=Fuii 
Fi.q< n=i ui« , 

TLWtUetB 
Fsu.ru''i'iapim 
1 S( I . ID! IrF'JO 
5? PMlilU"2l=OXR 
G(' To 5i' 

5 b DU 54 1 > = 1 * I IX;M 1 
lalYt U.V-1 )*UY 
U< l)aijC 
lit i)=GWT.HC 
ft (IlaF'lC 
Fbtunal UC 
UM(U=TC 
FStl. lUiigjsPRC 
mi.ioi ) s ruc 

54 I S(I, tui aiaOxr. 

GO To 5u 

55 DO 5o n=l dxu 

! - 1 Y ♦ ( I> “ I ) *MY 

u< i ) s-udij r 

IKUstlOKT 

I M U=FoUr 
Ft'M 1 )=f UORtlT 
It- M ( T » a I HkWT 
1‘MI.II'i ) stl J RUI IT 
F Ft I , HM2 I aLUPOUT 

FvSU.lljr dl-UQimr 

fmi, iD'.g i= ixiiutir 

II UY.tli ,i:Y I GO To 56 
UU)«0.! 
mtlafC 

56 CoHTlIRIt 
T ywl’J si' Wt 1 



MAO01570 

MAOOlSnU 

MA0015«»0 

MA001600 

HA001610 

MAoQ165>i) 

MA0016XG 

MA0Q4/S40 

MA001650 

MAt)0l6«0 

MA001670 

maoOxgao 

HAnoie^o 

KA001700 

MA001710 

MA0017PO 

MA0017X0 

MA001740 

MAn017«,0 

HA00l7fi« 

MA001770 

MA0017A0 

HAO01740 

MAOOIOOO 

MAOOltHO 

MAOOlftpO 

MAOOliilxO 

MA001840 

MA001G5Q 

maooioao 

MAOO107O 

MAnOlOftO 

MA001890 

MA001900 

MAOOlOiO 

maoOispo 

MAnoig.xo 

MA001940 
MAfl0l960 
MA001960 
MAD01970 
MA0019AO 
MAOOI.990 
MA002000 
MAO 02010 
MAllOaOPO 
MA0O20SO 
MA002040 
MA00P050 
MAO02OAO 
MAOOatlTO 
MA0020«0 
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01 b>.l) 1 X tl/VdHiMXhl 

I - 1 Y 4 < 1 . - 1> ♦)!¥ 

i.iti)s-l)"Ur 
ll( 1 >=Ht)i'T 

n-< i )=n u r 
nil < u=i o a 
ti n< l >=ic 

F.SII, l Hi 2|=1.u-FOUT-OXOUT 

rsii.ioi )-f hut 

i su,JOt'.i>,=oxmn 

II Ur. Hi .>•¥» SO TO 560 
UtDslUl 

iun=rc 

560 CUHTJUUI 
5H 1 = 1 Y+nX sp t l'IY 
U 1 1 ) - 0 • ?’ 

59 CoHTllJUf 

IXlllr Stw/Hl 4-liY 
llU bhl ) Y-1 *I'IY 
1 = 1Y* IXAtJY 
Ilv=I-MY 

T.LMt 1 ) = UI 
551 IK DaTLl ( I > 

c miTiALur »U)x-si*t.cits amiays. 

no si'o ix=2u 
I X 1! i Y - 1 1 X -1 > *MY 
Ul 5fKi I Y cJL « 1 YlJl'll 
1 -1 Y ♦ JXIIJf 

fmi, irji'Ui.or-po 
rsu, iDi'0»=i.or-i5 

l-.SU, lOI O.U^l.OI -20 

s<m rsu. i in ) ~i • of . “20 

I>‘lMV = i IX..-IUMY 
Ub 5f,;> I Y-I YWPl *NY 
1 = 1Y i lXIfly 

usUuluk^i.of-po 
UbU , 10 <()| =l.or-l5 
FS-U. to>>op> = i.m>ao 
5H? r^u,it)iip,vii=i.oi>ao 

c 

ii K«s(,H.V! niLMiii .r:o.o) oo to 592 

l,|KIT=J. )6HrL0l!+» L0CI/H1I 
1 ) 1 . by 1 JXsl«WX 

i/.iiiy=( rx-i )*iiy 

DO 597 IY-1.UY 
1 = 1 YUXUlf 
CMJU )=i;hmT 
597 CuHTKIU! 

C 

592 11 K !>UI <'<Klln|.LO.O) GO TO 595 
DU 5V3 LXriKlXfil 
TXlllY = UX-i)*WY 


MAOO 2 O 9 O 
WA002100 
MA002110 
MA0021?0 
MA0021XO 
MA0O21UO 
MA002150 
MA0021AO 
MA002170 
MA0021nO 
MA00219O 
MA002200 
MA002210 
MA0022P0 
MA0022X0 
MA0022t»0 
MA002250 
MA002260 
MA002270 
WA0022A0 
MA002290 
MA002300 
MA002310 
MA0023?O 
HA002330 
MA0023UO 
MA0023S0 
MA002360 
HAD 02370 
MA0023R0 
MA002390 
MAOO2400 
MA00241 0 
MA0O24PO 
MA002430 
MA0O244O 
MAQ02450 
WA002460 
MA002470 
MA0024O0 
MA002490 
MA002500 
MA002510 
MA0025P0 
MA002530 
MA0O25UO 
MA0025S0 
MA002560 
MAOO2570 
MA0025A0 
HA0O259O 
WA002600 
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n n n n c nor/ 






ORIGINAL Pag to r 
0F pooh Q u^f 


no b )3 jYsi.NYt'l 
islY+miJf 

rrKai.u-r s(i.inn-psu.it)02) 

vMXsrs < 1 . inp > /smu ( ioi > +ps ( l . njua ) yam c urns > wr/smw 1 1 uHp > 

•I93 »S« D*VSCU/( VMX*lLfU I > > 

595 IH* 5 u y lXsJMixt'l 
iMnmx-i 
i/iriYsirm »my 

1> 1 N Y .1— i X* *1 4 ti Yf’l 
1)1 1 510 lYs2»Wtf"? 
isIY + IXWY 
IVSlY+l VUiYl 

isv=iom 

i .*>= i - 1 
i.. = I-MY 

50 tl V ( IV ) s ( '■ ( TSV > *111 10 ( IS ) * ARE AN (IS) +AREAE ( T Y I * ( U ( I W ) *R(IO ( IW I 
1 »U < t ) +MLV (1)1) / (HMO ( I I *AREAN( I ) ) 


CALL OUIIHU (!) 

II (KlilPUI.GT.O) CALL OUTPUT (2) 
♦ Mr** I'll "J SH.tP STARTS HERE ***** 


PKINT OUT STARTING VALUER 


rvo n.wct i'=us’,lfpi,i 

IF LvnimcwFLl>.2>.EO.O) GO TO 500 

I UC=JL 

:tx~i 

ON to 5m 

500 ILC=-L 
IX-I'N 

501 uc 5 10 u=i,.Jp|> 
aid RSSUiM JlsiuO 


ilAPTKR o 6 b 0 6 6 6 6 STEP CONTROL 

****** NLW Lilli STARTS HURL **♦* + 

65 IXalXflHC 
l*U=l* 

II t lllu.i 0.-.1 > IXU=IX-1 

c 

II' U < . I. C . I xw I 00 TO bUOO 
I VI =v 
1 YL=i IYM I 
bi< rn bi o > 

boon IT U jc.l ,>.i i on tQ 6ooi 

IY| =IYWI'I 
IYL=IIYM.I 
GO Ttj 6t 0.3 
6001 I YF = v’ 


6 666660666666 


MAOOZOl 0 
MA002b?0 
MA002650 
HA0026U0 
HA002650 
MA002660 
MA002670 
HAoOSfinO 
MA0026*)0 
MA0027O0 
MA00271 0 
MA002720 
MA002750 
MAO 02740 
MA0027S0 
MAO 02760 
MA002770 
HA0027AO 
MA002790 
MA002000 
HA002010 
MAOOgQpO 
MA002650 
MA002840 
MA002S50 
MA002U60 
MA002070 
MAo02anO 
MAQ02Q90 
MA0Q290O 
MAO0291O 
MAo029?0 
MA002950 
MA002940 
-MA0029H0 
MA002960 
^MA00297Q 
MAO029AO 
MA002990 
MA003000 
MA003010 
MA003020 
MA003030 
MA00304 0 
MA00305Q 
MA00306Q 
MAO03070 
MA0030A0 
MA003090 
MA003100 
MA00311 0 
MA003120 


1 J_ 




I1L=mi 1 MA0031*0 

BOIj? I VF HI — J (I -I MA003140 

nLrtlria-l MA0031<iO 

lYLPl=I)L»l MAOOJlftO 

ri.OWl's»=l L- Wll-I MA003170 

II (II«i..MJ. -1)1*1 .rYjtfuHs-f’LOWIN MA0O3iftO 

IM IXU.'.T. IXi\'IPL.UWUP=0.0 MA003I90 

I I I HA y =0 MA003200 

IXPl=lX+i MAO 032 VS 

IXlNY=(IX-l >*NY MAn032?0 

IX1NY1- < IX-l)*llYMl MA003230 

IX2NY2=(IX-2*tlirH2 MA003240 

IXUPlsIXU+1 MAn032*»0 

1X1NYU=< 1XU-1)*NY MA0032A0 

IX2NYU=| TXU-2I+NYM? MA003270 

00 6b JHlr = 3..ILASr MA0032A0 

6k, IXIIYI Jl>iil * = rXlMY MA0032S0 

I.xIlYl JUI-TXINYI 1 MA003300 

1 XNy | JV I = l XXIIY1 MA0033i0 

r> ilYl JP) = 1 X2WY2-1 HA0033?0 

C ‘ MA00333C 

C-i-i- 1 1--_ -1 _I_:_MA003340 

CHAPTER 7 7 7 7777 UUUNOAKY CONDITIONS 777777777777 MA003390 

C ------ MA0033AO 

C MA 003370 

C- 31. E CLOCK UAIa. MAO033A0 

C MA003390 

C 1 1-1 MA003400 

SHAPTNi f) A o « il U n AUVANCE 800001)080 II 00083 MA003410 

c — : — : — - — maoo34?o 

C**» III . ') vHtTlOH nil A LI ML UE01IIS HERE ***** MA003430 

C MA003440 

c counr iiir iiUMor.K of tuna travcrscs on tiif line MA 003450 

00 mnA\f=Mri<A\M-i mao034ao 

K0UM1 u >.)=)•! IP AV MA003470 

C S)T ul I' FUSION TERMS FUR CONTINUITY CELLS ON LINE MA0034HO 

II (lX.Lv.HX) GO 10 001 , MA003490 

CALL COLLI (0) MA003500 

II (KTL’SI • i> T« 2 1 CALL TLST (41) MA003510 

C MA003520 

C SI. T HAS. a ( LOW PAILS FUR CONTINUITY CflLS ON LINE MA003S30 

CALL FLC-Wt (1) MA003540 

CALL FI O-.M ( 3 ) 1^003580 

II (K rLS * ,i‘,T »2 1 CALL TEST (401 MA003560 

C* » SNLvL FOR UFPClinniT VARIABLES MA003570 

C MA003SAO 

IT (UIHA7.GT.1) GO TO 001 MA0035<)G 

II (17'J.ru. NXMl .OR.IXU.EU.il GL TO OOl MAOO 36 OO 

I Ml I PS-0 MAO 036 10 

LAlll’Ml^CU MA0036?0 

call colfi' ( jui MA 003630 

CALL All JUKI (3) MAO 0364 0 
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H- 


V 


II IKTISl .OT.11 CALL TLSVtS'U 

mu i;;Nti =i 

uu (Lit) oi>iii=i,usolvf 

11 iKXOLVF.t Jt'Hn.LO.O) OU TO 1100 

11 < JIMU. L’>. Ou. ADD. ( 1 XU. be. l 4 Xtol.OK.lXll.ro. 1 .M °0 TO »M )0 

ntx^AV/slYF 
IYLSaVsI Yl 

II ( JPlII.E <S.JM> hO TU oua 
iriU.L'i,' XI GO TU Boo 
Go To fl 3 
All 3 nF-;> 
iTL-llY 
lvnUstrF -1 
lYLMisl fL-1 
IYLPl=lYLU 
MV3 LADPllt-UPill 

CM COLFI Ivlinil) 

inKTLST.GT.l) CALL TEST ( 21 ) 

ITFalYF HAlf 

IVL=I YLv‘,Av* 

I Yl* Hi-I Yf -1 
tYLMl=IYL-l 
IYLIHsIYLol 
AMO CbUI iUUl 


Ci l A PTC K 9 9 9 9 9 COMPLETE 9 9 9 9 9 9 9 


II UMLUT.CU.l) GO TO 90b 
CALL TE- P < KGOtO ) 

II < Ix.C.'.llX) GO ru 1250 
CALL OEUStKCOTO) 

II OroUtL.CO.il CALL LUU1L (KGOTO I 

lKK.irCF.r O.l.AtJO.ISWLLp.GC.KSWLLPI CALL KIMEt KGOTO) 

GC TO 9 45 

905 II (I^OLVLl JTtM).CU.O) GO TO 935 
IU.GSC I=rm SS/fiASCOM 

IUCPS=2 ' 

US is l ill 12 
11X2= 1002 

IK 9 0) 1Y-IYIMYL 
IslYUXUh 
KCU >=i MU) 

rsd, tU'UisOxc+i i.o-FMm ) 
rsu,ior )=ruLu > 

f S ( I , l Ot ' 2 ) s l . o - r u h n - 1- s u u o 0 2 ) 

TKSTI-UMI) 

CimisUU) /GASCON 
DC 910 tS=US\l,HS2 
910 ST ( IS )=l S|Ii IS) 

DC 91b ITrl ♦ PTMAX 
CALL IlCI’S 

OTLMp=ti lirH/VK-OSUM ) /LPSUK 


MA003650 
MA003GF0 
MAO 0 3070 
MA0036AO 
MA003S90 
MA003700 
MA003710 
MA0037?0 
MA003730 
MA003740 
MA003750 
MA0037A0 
MA003770 
MA0037A0 
MAO 03790 
MA003000 
MAQ03810 
MA003GP0 
MA003030 
MA003840 
MA003A50 
MA0030r,0 
MAK103Q70 
MA003AA0 
I-MAQ03890 
9 MA003900 
--MA00391 0 
MA0039?0 
MA003930 
MA003940 
MA003950 
MA0039AO 
MA003970 
MAO039A0 
MA003990 
MA004OO0 
MA0Q401 0 
MA004020 
MAOO 4 O 3 O 
MA0040<*0 
MA004050 
MA0040A0 
MA004070 
MAO04OAO 
MA004090 
MA0O4100 
MAOO'lll 0 
MA004190 
MA00413G 
MA004140 
MAO 04 1*10 
MA0041A0 
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It =AI i IN I ( THAX , TK*I I • O+Ul ChP ) ) 

TIn — A* *AX L( 1T|lN « TK I 
II <Al."S< .'Tt MP) .LE.EPST) GO TO 9f>5 
•US CUNT i >' J U f. 

M<ITC<O<990I TX,IY,NTMAX,TK,OTCMP 
920 romiAH llln»10l 1H-|<HX,31HPOOR CONVERGrUCE OF TCDPERATUKE /1 3X , 
l THAI I- a, 13 < l(li|» AND IY = , I3/13X,22HNUMnER OF ITERATIONS =,13/ 
? L3x«l3,<1l MPERATURE = . 1PE15.G/13X ,7il()TriiP = . 1PE15.6/1 3X , 

3 1HIU« + A T IJ HPOSKAM**-*/) 

92 r. rLM<n = rK 

Vt.XXKri.IU I I / SHU 1 1 OF )+FS l 1 , 1002 r/SMW ( I n02 1 fFS( I . 10N2)/SMVM TDN2I 
930 IHlO.1 U=rUt.SCN/<TK*VMIX» 

c 

935 II t.RSOl Vr < JEHUKCO.O) 00 TO 945 
UU 94J JY=IVr.IYL 
I = lY*-lXl!iY 
940 lll»Um=l IT. IT 
C 

C St T ir.KIT I For IX=2 ADO IX=NXM1. 

945 II (KDUI.TI t.vJ t tVT.l) GO TO 999 

ii (i‘ic.EvUi.Afin<rXjEa.uxMi) go to 994 

Gu TO 99b 

994 00 995 IY=IYP,1YL 

995 D0<IY)=T.A 
GO TO 9 )9 

996 II ( IflC.t }.-l. AIIU.IX.EU.2l 60 TO 99 1 

GO TO 999 

9 fJ 7 OU 999 IY = IYF.IYL 
99.9 OUT I Y ) = J • tl 
999 CONTI flUt 

cii--i — - - — 11 — i- — i-im — , — _i 1 — i- 

ciiapti k io it in io 10 adjust in io ro 10 10 10 


r — — 

C - OVERALL CniJTlNUITY CORRECTION 

C ADJUST II) ADJUSTS ALL TIlL U-VCLOClTirs ON THE LINE IXU FOR 

C COM) INDl t Y ACROSS THE STRIP. 


II I t/U.'.G.NKMl .01!. IXU. LG. 1 I GO TO 1001 

CALL FL ! Hv> ( 2 ) 

If (l< Tl ST.GT.2I CALL ILSTI4II) 

CALL aDjUsTII) 

IFlKTtST.GT.il CALL TEST ( 22 ) 

C CLLL-Wjsr CONTINUITY CORRECTION 

llMU CALL FLovJiM 1) 

CALL FLOWH (21 

II If. TEST. GT. 2 I CALL TEST|40> 

L/'ni'|tt=J»'i' 

II IRSOI Vi (JPpi.tU.'O) GO TO lnoo 
call coi Fri JPPi 

C. 

C i>0 JjsT 1 2 1 ADJUSTS THL U AND V- VELOCITIES FOR f ACII CELL OM 

C IMF LI-iL IX FOR CONTINUITY IN Tilt CELL 

CALL wllJUM I 2 ) 


MA004l70 
MAOOMlnO 
MA004190 
MA004200 
HA004210 
MA0042PO 
MA004230 
MA004H40 
MAn04?JH0 
MA0042AO 
MA004270 
MA0042AO 
MA004290 
MA004300 
MA004310 
MAOp43?0 
MA004330 
MAO043A0 
MA004350 
MA0043A0 
HA004370 
MA()043n0 
MA004390 
MA004400 
HA004410 
MA0044?0 
MA004430 
MA004440 
MA004450 
MA0O44A0 
.MA004470 
MA0044R0 
•HA004490 
MA004500 
MA004510 
MA0045P0 
MA004530 
MA00H540 
MA004550 
MA0045A0 
MA004570 
MAOU45nO 
MAO 04590 
MAO 0460 0 
MA004610 
MAO046PO 
M A 0 0 4 6 3 0 
MA004640 
MA004650 
MA0046A0 
MA004670 
MA0Q46n0 
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If (KTEST.GT.il CAUU Tr:ST(23| 
II ttf l. ; O.IJXrtl.QR.IXU.LU.l) GO TO 1000 
CALL rtlloL* VT 1 3 1 

If (i< rl,‘>T .OT • 1 1 CALL TCGT<24> 

C 

i non ccui i’iLi 

CHAPTI P 11 1 1 11 U 11 PRINT It U 11 ll 11 11 


ALL jCi I UUfKS CONCERNING PlUHT-OUT ARC MADE IN CHAPTER 12 
y»UUr*)A<T REFfRENCE PHLbSURC FROM PRESSURE FlEUi 
VALLES FoR PRINT-OUT 
P1 PRlF=P ( IPRLFI 
DO UQO If'— 1 1 NX VP 
non pup)=pi ii>)-ptppcF 

CALI IlMliuU To SET BOUNDARY VALUES Ff)R PRINT-OUT 
DC it 10 Usl.JLAST 
LAUPlUa.l 

II I USUI Vr(U).NL.O) CALL ROUND 
111,) CCMTlNUI 


iaptcr u' ip i? 1 a ia 


DECIDE 1J? 12 12 j.2 12 12 


DECIDE uIR TilKR TO REPEAT THE TRAVCRSf ON THL LINE 


1230 CC'Nll'IUl 

HSHAasAi.Si < 1X11,1) 

Dt. 1210 UrtK.Jpp 

1210 RSMAjCsA' AyltRSMAX.ARSLUX.UM 

If <HSilA> .fiT .RSCllEK* AND, NT kAV.LT, NTDMA I GO tO 00 
ur TL imIhL THE sun OF RESIDUAL SOURCES FOR EACH VARIABLE 
(SOLVED QY TUMA) ON HIE LINE 
RSSUf (1 1 si SSUMfl > +ARSL ( IXU » 1 J 
UC ljPU Js2,JPI» 

lP.'O RKSU-" ( J ) s,:SSUf> ( J I fARSL UX i J ) 

ULLH'L -IP TIIKR 1 NL SWEEP HAS IIECN COPri I TfU 

IF (INC.E. .-II GO TQ 1230 
If (1X.H .NX) GO TO 6b 
GO TO It 4* 

1230 11 (1X.OT.2) GO TO &5 

.....II St>. I'iUNTuNl RESIDUAL SOURCES AND VARIARI C VALULS AT 
TNL JN l TOR tlip LOCAT ION 
Xr»N a L/'LL Oll!'P..r(3) 

C Ll TEU>ll!*E LARGEST RESIDUAL SOURCE SUK HI THE F t ELIl 
RSflAv^U.O 
ur JU'itU Url . jpi* 


MA0Q4690 
MA004700 
MAQ0471 0 
MA004720 
MA0047XO 
MA0Q4740 

:_:.MA004750 

11 MA004760 

--.3---MA004770 
MA0047A0 
MAO04790 
MA004800 
MA0040T 0 
MA004Q20 
MA004OX0 
MAO04&40 
MA004050 
MA004GA0 
MA004070 
MAO04OnO 
MA004090 
3 --*>l-MA 004900 
12 12 MA004910 

I--: — MA0049PQ 
MAO 049X0 
MA004940 
MAQ049S0 
MAQQ49G0 
MAQ04970 
MA0049A0 
MA004990 
MA005000 
MA005010 
MA005020 
MA0050XO 
MA005040 
MA 005 QSO 
MA0050AO 
MA005070 
MAOOSOftO 
MAO 05090 
MA005100 
MA005110 
MAO 05120 
MA0051X0 
MA005140 
MA005150 
MAQQ5IR0 
MA005170 
MAOOSIAO 
MAD 05190 
MA005200 


o o n n o non 


1200 K’.MAasA A / 1 ( MSf AX * K-SSUH (J)l MA0052 i0 

MA0052?0 


MA/005240 

1 1 (M-)l' ( IS CH’ . 1 Pl< llJT ) .L(>i . 0 . AMD. I SWEEP .ME. (.SWEEP 1 CALL OUTPUTt?! MAfl052s0 

MA005260 

ULC IIlL .fit THEM to CONTINUE SOLUTION MA005270 

KA0052HO 

11 (MSUAx.bT.CCMCCK.ANO. ISWCEP.LT. LSWEfP) 6a TO 50 MA005290 

MA005300 

r INAL (». 1 If OUT MAQ05310 

CALL IHJTP.H <2> MA0053PO 

STOP MA005330 

III* MA005340 
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OUOOOOlO 

suuHutjriur uuTLi'r(Kooro) ouooobpo 

c-„.,_,-- — <«,,*. - ' — — — Z-Z_>z — — -ZZ- Z — , ZZ-Z-OUOOOO.XO 

CHAPTER 0 0 0 U 0 11 0 DECLARATIONS 00000000 OUOOOO4O 

c OUOOOO"iO 

COHMOil/t 0 A/ U(40H> »VM*H5> ,H(SP0) »FM(ftna> .FUE(SOO) ,FS(ft00.15» , OUOOOOf.0 
1 I Pf 20) »Tl*H( hOO ) »|'(414) ,RHO ( 5()0 ) »LMU(r,00> , OUOOOO7O 

1 I XG ( 25) »i'XU( p«rl ,hOUNT(25) .R0XG(25) tllljXU ( 25 ) tRSXG ( 25 ) ,RSXU(25) . OUOOOOnO 

2 STORtL'.b) ,SXfi(?5) »SXU(C5) ,X|?5) rXUtgH) , OUOOOO9O 

3 MP0),‘VLl2U ) .All (PO) ,AREAE(20) . AS( 20 > , ASNtP ( 20 ) , AW( 20) ,U( 20) , OUOOOIOO 

4 PSN JIM 20 I »C ( 20 ) »CSNlP( 20 ) » UirC ( 20 ) .RIFLE (20),OIFN(20), OUOOOllO 

b I IRif t XO > ,.UFW(20) ,DSN1P(2Q> ,MJ(20) ,(lV(20> ,DYG(20) .0YV(20> . OUOOOlpO 

• €, FLOGL(<’0) ,FLm-TU20) |FL,OWN(1*0) .FLOWNt (20) .FL0WVM20) ,R(20) . OUOOOIOO 

7 I'UYG (PA) ,KDYV(20),RSro(20) .KSYY(20),RV(20).RVCP<20> .RVSG120), OUOOOX4O 

0 MMpn I , Si) (2.0 ) ,RYG(2Q ) ,3Y V ( 2.0 ) , Y (20 ) , yV(20 ) « AEDQX(50a ) , OllOOOlbO 

9 AlJUliY ( V«0<) ) , ARLAN ( 500 ) , VOL ( 500 ) ♦ OUOOOIAO 

X mRSL I 2f . 2b I rPR( FT (251 »PRL ( 25 > .PUT 1 2fi I .HSLINE ( 25 , 25 > . OU0OOI7O 

1 ir.W(,?bl . I LAS r ( 25 ) . I MON (25) « IXNY (25) « I7ER0(25) ,KS0LVC(25) . OUQOOlnO 

2 PSIU F (25 ) .KSSIIfM 25 ) . TI ILL ( 2f> > OUOOQlgO 

IllMEHSll N Qtruw ( 20 ) ,01’FWW ( 20 ) ,F(Un09> .FLOWNW < 20 > .FLOWWW ( 20 ) OU000200 

Ll.UIVALf NrL(r*< 1 ) .1X1) » . (TLOWNWa) .FLOwMEU) > ♦ (FLOWWW(i) ♦ ' OUQ00210 

1 rLO.ilTLUl it (l)lf'NW(ll .UlFMtun . (OIFWW(I) .DIFEEU) ) OUOO022O 

COMpON/COMD/ OUoO 02 aQ 

1 AK , ARKCO'I » BI G , CCllECK » CMIX , DATA (6 ) .Up ,EL1 .EL2 »EMA . LMF .EMUrEF * OUO0O24O 

2 f PS I' .FuRaT « LWALL % FLOD »f LOG .FLOWIN.FLOWST .FLOWUP.FSToiC. OUOOOPbO 

4 f STO I >1 . r-jB .FUR ,IIFU ,IIW « INC » INERT » IPLRR , I PRF.F , I PR I NT . I SNIP , OUo0O2ft0 

4 ) SWEEP, 1/ ♦ IXMON , IXPREF » IXPi ,IXU, IXUPl « IXW , IXLNY ♦ IX1NYU. OU000270 

5 1X1UY1 • I X2NYU , I X2NY2 , 1 YF . IYFMI . IYFUEL , IYL , I YLM1, IyLPI . lYMON, OUOOQ2AO 

6 1 YPIUF , lYtf . 1YWM1 , IYWPl.JLfTU.JFM.JFUE, Jll.vJLAST.JP, JPP.JRHn. OUO 00290 

7 JS1 * JS2 . JTEM.vJU, JV.KASL.KIMPRI .KLT.KRAD.KRIIOMU.KSWCEP.KTEST, QU000300 

0 l.AHlUll ,LsvjLLp,IJS 0LVE,NTDMA,|ITMAX,NTRAV,NUMC0L,MX,NXMAX»NXM1. ouooosto 

9 LXi’12 »U/ Y>i .iJXYP .WXYU.U a YV *NY .MYMAX.NYMI. IJYM2 .OxB »OXC »pjAY , QUO 00320 

X I RtrxP.P-'CSS.RrLAXP.iU' .RFSTM, RSCMEK.rrmAX.RII .R1Q.R2I ,R2o« QU00033Q 

1 STOICH.Ih.TL.TINY.TMAX.TMIN.IID.UC.WMIX OU000340 

LOGICAL C JNVG OU0003T0 

C( Ml UN /roDLx/ TUCO . IUC02 . IDF, IDM, IU|I2 , 10H20 » IDO , IDOH, I DO? » IDN. OU0003AO 

X IUiJg, lull >2, IDU? . IDU20. lEQUIL.IHCPS. IPR, JJ.KNTCS.NA.NLM, OU00 0370 

2. l>S,HSLi,'tSL2.NSK«l'ISM.NSl,NS2,ID(4,l5) OU0003A0 

3/LAP ADS/ COOVG .EMV.EPSS.GASCOM. IDLQUG, ITMAX^PA.SM.TINYK ,TK,TLN»TNYOUn00390 
5/SPCCCS/ARUn (20,3), GPSUf’ .HSUfT, UO (141 ,SMW (14)«S0tl4)«Sl(l4). OU00040Q 

G S2 ( 14 I ,2 (2 ,7 , 14 J OU0004l0 

7/1 LOU (L/AGl .AC2.AG3.AL4.AU1 » AII2 . AH3 , AII4 . ASM1 • ASM2 , ASR3 » ASM4 , QUO 0 0420 

6 ASl'(4.7,2) .|IDlV.llMAX,HI-xIi'l,PCXP(7) OUO004A0 

y/l-CAl, rs/liv(l5) ,GX2(15I , 1 ACT (lb) ,TACT?(15) , TFN (1‘a) , TEN2 (151 OU0OQ44O 

C Z 1- Z--Z — Z Z---OU0004S0 

CH APT t R 1 1. 1 .1 i PRLL1M1NAR ICS 1 111 1 1 1 1 11 1 OUnOOHAO 

C — ~„Z„ — — — — Z_ — Z — -v___Z 0UOO047O 

DATA KTi'lP/V OUO0O4AO 

DATA nLnWrt/411 /, niIHD/4IIM / OU0O049O 

C-Z-- — -Z — — Z---OU000500 

CHAPTl.R 2 2 2 2 HEADINGS 2 2 2 2 2 2 2 2 2 2 OUoOOsrO 

C ~Z — Z ‘ -Z OU000520 


1087 

101,5 


II 1 1% G 0 1 O.IJL. 1 ) 6l) TO 3b00 

- PRnriLLM INFORMATION 

Rl Y='|.0*( FLOIUFLOC » / ( LMUREF *R 1 1 ) 

CtRAI=l I Ot *$TOIC:H/(OXt*(FLOC+TlNY> ) 
w’ in, (-j.iuoti 
FORMAT tl.,1) 

Wl'iTI (0.1013) 

f OKMAT lllXi'jl ( lH*)/UX,ll|*»49X,lH*/l 1X,1H*»49X,1H*/11X»1H*4 49X, 


i lin/iix, 

Vl>l II 
362H 
4 6211 
56211 
662H 
762H 


5 1 ||* 

4 

4 

* 

* 

4. 

4 


PREDICTION OP HYDRODYNAMICS AND 
CHEMISTRY OF A TWO-CONCENTR IC-TUBE 
COMBUSTOR WITH ATTENTION 
TO POLLUTANT FORMATION 


OU000530 
OUDO054O 
OU0005s0 
OU0005F0 
OU000570 
OU0005A0 
(JU000590 
OU000600 
OU00061 0 
*/OU0006?0 
*/OU00Q630 

♦/ounoosuo 

*/OU0O06lO 

♦/ounoooso 

•/OU000670 

4 /OU 0006 AO 


8 UX.1IIM4DX . II lt/1 LX.lH4.49X,lH*/llX,lH*t49X«lH*/llX,lH*.49X»lM*/ OU000690 
y 1 IX » 111* • 49 < ♦ 1II*/11X , 1H*«49X » 1H* ) OU000700 

VlRITt (5.1015) OU00071 0 

1015 FPRMATillf.lll 4 .lOX. 4UHTHE NASCO II COMPUTER PROGRAM */OU0007?0 

16?H * ' */OU000730 

24211 * PREPARED II Y » 19X . 1H./11X . Ill* ♦ 49X . OU0 0074 0 

3 111* /I IX . Ill* , 6 X , 44HCOIICENTR ATION . HEAT AND MQMEHTUM LTD. */OU0007"i0 

4 11 X. Ill *. 49 X. II I + / 11 X. 111 *. 23 X. 3 HFOR. 23 X.il I*/ 11 X. III*. 49 X. 1 H*/ OU 0007 A 0 

56 F.H * NATIUNAL AERONAUTICS AND SPACE ADMINISTRATION */ 0 Ul )00770 

f.6r-ll * */OU0007fl0 

76,01 4 NASA LEWIS RESEARCH CENTER */OU000790 

8 11X.1H. »49X » III4/11X *1H*»49X » lH*/llX, 111* » 49X , 1H*/11X . Ill* « 49X » 1 M*/ OUO 0000 0 

0 11X . 1H * » I'jX . 19HCONTRAC T NASW-3077 . 15X « IH*/HX » Ill* • 49X » 111*1 OUOOO81O 

WRITI (m, 1016) KASE OUQ00820 

1016 FORMAT (1 1>'»1H*.20> .101 1 APRIL 1978 , 19X , 1H*/ OUOQOO 3 O 

1 11X » 111 - »a9X » 1 m/llX * 1H*.49X , 1H*/HX , 111* » 49X .1H*/HX , 111* »49X . 1 )!♦/ OUOOO 84 O 

2 MX. 1|U .'V9X,1|I4/11X.1I|. .49X,lH*/ilX. 111*. 49(111-). Ill*/ OU 0 OO 85 O 

3 nx. nn.ijyx . nu/ux. in* »4yx.iH*/iiX,iH*.49x.iii*/iix,ni*.49x. in*/ ounooaso 

44511 « RtSULTS For test CASC.I5.11X.1H*/11X. OUOOO 87 O 

5 111*. 49 . .1H*/MX.1H*.10a. 3011s. I. UNITS ARE USED THROUGHOUT . 9 X . 1 H*/OUOOO OflO 

6 1 IX. Ill* .4 9X.in4/llX.lH«.49X.l|l*/MX.lH4.49X.l||*/llX.lH*.49X.1H*/ OU000890 

7 MX . 51 < 11 1 * ) ) OU 000900 

WRITE ( 6 . 1020 ) OU 000910 

1020 T'.'RMAT llni.lSIirLOW CONDITlONvS/lX. 15(111=) ) OU0009?0 

If (KLT.Lu'.l) WRITE <b,1021> OU000930 

1021 FORMAT (lllU.4X,l4l!LAMINAR, KLT=1) OU0009U0 

IT (KLT.E.J.2) WRITE (6.1022) OU000950 

1022 FORMAT ( lt' 0 . 4 X , 16 HTURUULEIIT, KLT= 2 ) OU 0009 A 0 

IT (IlltlT.EM.il WRITE (b, 1023 ) OU 000970 

1023 KIRMAT ( 1H0 . 4X . 2 1HNON-RL ACT IMG . INERT::!//) OU0009nO 

IP (IUEPT.D. 2 ) write (b« 1024 ) OUOO 099 O 

1024 r bRHA T ( l! >0 . 4X . 20HCHEM1CALLY REACTING, INERT =2// ) OUOOlOOO 

WRITE (f .1019) OUOOlOlO 

1019 FORMAT (II 10. 8IIOI Oi1ETRY/lX,8(l||=) ) OUOOlOpO 

WRITE ( 6 , 210 ) PF . Till »R1 (i » R2 1 , R20 , ELI , LL2 OUOO 1 O 3 O 


210 f ORflATi// 1 X. 10 II 


RF, 1 UH 


R l T 4 IOH 


RIO, 


OUOOlOUO 
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Hull UP 1 « t nil R?0/lX.iP5ElO.?//lX.10H ELI. 

PlUtl tLP/lx.lP2C10.?> 

HKITL <«.. 10P7) rtlf- « EMn »un» UC ,70 »TC .HlUSS »REt « EQUrtT .flow in 
10P7 FORMAT (//lllO .KiUINLC I CONUIT lONS/lX, 16<lll=)//5X. 

X *2IIFL0v‘ KATE or FUEL. LHF»12X«1PE10.3//5X* 

i-llirLUi RATE of air. LMA.13X.1PE10.3//5X, 27UVELOCITY 


Y 

1 

2 

3 


OUOOlOsO 
OUOOlOfO 
00001.070 
OOOOIOhO 
OUOOIOSO 
OFOUOOllOO 

I ULL smrrt'l, illi.7X»lf > E10.3//‘iX,2bHVD.OClTY OF AIR STREAM, UC.flX, OU0OH1O 
iPC VO • .j//bK, 30 H TEMPERATURE OF FUEL STREAM. T13.4X, 1PE10.3//5X, OUoOllpO 
29Hmvi| EUATURL OF air STREAM. TC.5X.1PE10.3//5X.21HINLET PREssUREOUoO 1 I3O 
PRF SS .1 IX « 1RF1U. 3//SX. lbHREYMOLUS NllMRER . 19X . 1PE10 .3/V5y , OUQOUuO 


tmcrmodynamic 

1.2) FOR EACH 


10 

10AP, 


5 3’lllovri Al L LDU 1 VALENCL RATIO, CURAT 

6 I LUk UATh. FlOWIN , 6X , 1F J E1Q .3/V ) 
wta tv u-.io'U) 

1001 I (*UU/\ FUH 1 ,53l (POLYNOMIAL COEFFICIENTS FOR 
l./bln 10 rOCFF TCll NTS IIZIK.J.Ih J=1 . 7 ) . K 
2//> 

UL li)tF8 1 = 1 , MSIP 

Wl 111 (f.,lOU2) ASUim ,1) ,( (Z(K.J.l) ,j=1.7) ,K = 1.2) 

FORMAT UII0,AH/(3X,1P6E11.3) ) 

II (KUTtS.EO.O) GO TO 1005 
WRITE It. JO 03) 

inns f URMAT (lUl.lOHRLACTIUN MLCIIANISM/ 1 X, 10 ( 1 H=) » 

DU 1.061 Jsl.Jj 
LU TOGO KK— 1.6 
LI.=K|< 

IF (mv.C-T.o) LL=KK-1 
DATA (KDsOLANK 
IF (IVV.10.3) GO 
IF (KK.EQ.b) GO 
lULLjsIMl L. J) 

IF t IDLI J.EU.O) 

DATA | Kh ) sASUR ( IULLJ.l) 

CONTINUE 

IF HvKP.j) .Eo.O) GO TO 
II 1 101 4, J) .6.0 -. 0 ) GO TO 
GO TO 1063 
DAT A(3> = Ti'1RU 
UATA<6)~ThIRU 
wRITf 16,1064) 

I ( RM.U (IT. Pit. 

1 1P3111.3) 

GO TO 1061 
WRITE lu.lUAS) 

FuRMA I - I IX, Pit. 

CfDTlUUt 
WRltr (0.1 UA4) 


TO 

TO 


1060 

1060 


GO TO 1060 
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(OATA(K) ,K = 1,6> 

, A4 . 2IH ,A4,2|I + «A4, 


J, (UATA(K) .K=1.6) 
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, 1PE10.3//5X. 20HTOTAL MrtSSOUOOllsO 

OUqOUaO 
OU 0OH7 O 
PROPER! IESOUoOHrO 
SPECIFS I.OUoOllqO 
00001200 
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OU001220 
OU001230 
OU001240 
OU001250 
OU0012A0 
OU001270 
ouooiano 

OU001290 
OU001300 
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OU0O13PO 
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00001340 
OU001350 
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OU001370 
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OU001400 
OU001410 
OU0014?0 
OUOOI43O 
OU001440 
OU001450 
OUOOlHfiO 
OU001470 
OU0014A0 


2|i= .A4.2II+ ,A4 .211+ . A4« 


» AN ,PU+ . A4»?X« A4. 1P3E 11. 3) 


0U001490 

( J ,RX ( J ) . TEN ( J) .TACT I J ) . RX2 (0 ) , TF.N2 I 0 ) .TACT2 ( J ) . QUO 0150 0 
1 J=1 , JJJOU00151 0 

10 mi FORMAT (lUO.ax.r'IURATL CONSTANT PARARETERS/5X.37HRATL CONSTANT = OUoOl5?0 
1 A*T‘ H3 »C yp I -TACT/T ) . lux . 15H ( T=TEMPLRATURF) ///l 7X . 12HF0RWARD RATE . OUD01530 
P V IX 1 L3i:|,'>CKViAOU RATE//yx . 1FIA . 10X . lHn , OX . 4IITACT , 9X . HlA . lOX » 1HR . OX , 0000154 0 
o 4in ACT / I f3. 111. . ll'6L11.3) ) OU0O155O 
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OU001560 


irfl 1T( (6.231) IJTIjMA.LSwLEP.RSCIiEK.CCHECK OU001570 

2Sn r URM/\ f (/lx* 10 m NX.10H N Y • 1 Oil NXMAX , 1 Of t MYMAXOU0015HP 

1/lX.iMll:) OU001590 

?5 1 FuR^AIC/Ia. 1011 NTDf’iA.lOII LSWLEP OU001600 

1,11)11 R >C;li K < tOM C CHECK/ lX«2110,lp£ > E10.2) 0UOOI61O 

l<l TUMll OU0016P0 

c_.. — ; — :...ouooi6xo 

CHAPTER 3 .5 3 5 3 FIELD VALUES 3 3 3 3 3 3 3 3 3 OU001640 

C .1 — 1 — OUOOI650 

300(1 If- ( K’iUTO.ME. ? ) 6U TO 4000 0 UOOI 66 O 

DO 3 1 df*| IJ = 1 * JL AST OU001670 

If (Ul’HI.E-I.JPP) GO T031 OUOOlfiftO 

IF (KSOLVE I Jl’lll ) .LO • 0 ) 00 TO 31 OUOOI 69 O 

CALL PIUNUUPIIT) OU00170C 

51 CuUTriJUl. OU00171 0 

KlRIf‘ = G OU0017?Q 

Rl TUfiil OU001730 

c ---i • i 1 — -i__ 0 U 001740 

CHAPTER 4 4 4 4 PRINT OUT OF RESIDUaLSOURCES AND MONITORING VALUES OUOOl7*iO 

c - 11 1 1 1 — oun 0 1 7^0 

4000 IF f KG01 O.MC. 3 1 RLTUKH * OU001770 

IT <fiPP< JS.iEf P. JPLI(S) .NE..O) GO TO 4140 OU0017A0 

K)RIP=U OU001790 

Wf-lTf (6.4 I Of!) I SWEEP » I SWEEP. (TlTLL(K) ,K=lt NSOLVE ) • TlTLfc ( JPP) OU001800 

i)L 4 1 U J y~Z , NXf'il OU001810 

4 Irt Ul: I Tl (6,41 0? ) I X , KCUNT ( IX ) , ( RSLINE ( I X , J ) , J = 1 , NSOLVE ) . RSLI NF ( I X . JPP ) OU001820 
Wt-ITl (6,4104)1 Xf-Ol'l » I YMOU « (TITLE ( K ) , K=1 « NSOLVE) . TITLE ( JP ) OU001830 

Ul 417 .ilSOLVL OU001840 

I“1H Jl-I ( «J ) + 1/F.RO ( J I OU001850 

4 3 7 STORl ( J I =! ( I ) OU0018F.0 

I=lMON(UP) OU0OI87O 

WMTl (6,4113) I SWEEP » (ST URL ( J ) ,J=1. NSOLVE) .P(I) OUOOlRRO 

4140 II (KTRIf .1 U.O) WR iTF. < 6 . 4113 ) ( TITLE < K ) ,K = 1 , NSOLVE ), TITLE ( JPP ) OUOOI89O 

KTRII‘=1 OU001900 

UlvITl (6 ,4 1 12) 1 SWLLP » C K'SSUM ( J ) ,J=1, NSOLVE) ,RSSUp( JPP) OUQOl9iO 

41(10 FOlUiA F( /IX » 1 OFISlvC LP NO. , 13, ?x. 80(1(1=1 ,4X. 10HS1.EEP No. ,I3//1X, OU001920 

163HAI r.PHIAIC 91 II » uF RESIDUAL SOURCES AT EACH LINE --RSLINE ( IX tJPHI ) OUO 01930 
2/1 X , 13IIIX HU. TRAVS,2X,10(3X,A4,3X) ) OU001940 

4102 I ORMATI 1X.I2.F.X,12,3X,1I>10E10.2) OU0019JS0 

4104 K'RI'iAT(/lj(.3lHVAUjLS AT MONITORING LOCATION ( , T2 • 1H • , 1 2 * 111 ) / OU0O19fi0 
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4112 I OKMrtT I l-X , I A » AX » 1 P 1 0E1 Q .2 ) OU0019H0 

4113 ; FORMAT (/l’> i38ll.9l.lfi OF ALLS. VALUES OF RSLI NE ( I X , JPHI ) -/ OU001990 
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CfjMPOII/f.O. A/ il ( AGO ) » V (475 ) ,H( 500 ) ,FM( 500 > ,FUE( 500 ) ,FS ( 500 , 15 ) . 
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.X M 20 ) • » F ( 20 ) 'fit! ( 20 ) , ARLAE ( 20 > . AS ( 20 ) , ASNIP ( 20 ) , AW ( 20 ) .B ( ?0 > . 
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X AKSLI25.PS) .PREFF (25) tPRL(-2f>» .PRT(25) . RSL INE ( 25 . 25 > i 
1 IL'WIP.S) , (LAST l?5) . IMOI'J ( 25 ) » I XMY ( 25 ) . I7.ER0 ( 25 ) , RSOLVe ( 25 ) , 

? RSIU F(V5) .RSSUM ( 25 ) » 1 17LE ( 25 ) , 

DlMEMSIi'N LHFMW(2li) .DiFV;W(20) ,F(11BQ9) «FLOWNW(20) .FLOWWW(PO) 
EUUIi/ALI Nf E(F(l ) ,U< 1 ) ) , (FLOWNWU) «FL0WNE(1 ) ) . (FLOWWW( 1 ) * 

1 I LO/ Ltm ) * ( niFIMW < 1 » i UIFfJE ( 1 ) ) ♦ (UlFklW(l) .DIFEE(I) ) 

(.OMMON/Cof'iu/ 

1 AH * AKRi'Oi l *0IG » CCHECK tCHIX.I.MTA (6) .UP, ELI »EL2»EMA «EMF • EMUREF. 

2 fc.PSl ,E ,*RAT.f-:WAl.L.FLOU,l LOC.FLOWIN.FLOWST.FLOWIIP.FSTOIC. 

3 j STi) I M , Fill) *FUr * HFU.Hw. IMG » INERT » IPLRs. IPREF » iPRlNT . ISNIP . 

4 ISWf, CP. IX. IXMUII. IXPREF, IXPl. IXU. IXUPi, IXW, IXlNY. IXlNYU. 

5 JXUYI. I/2IIYtl.IX?NY2.lYF.IYFMl.IYFUEL.lYL.IYLMl.IYLPl,lYM0Nt 
(, 1 YPIIITF. I YW ♦ I YWM1. lYWPl,JEMU,JFHtJFUF..JH. JLAST.JP. JPP.JRHO* 

7 JS1 . JS, J . JTEM . JU . JV . KASE . KINPRl »KLT . KRAD . KRHUMu , KSWEEP • KTFST . 

0 l.ABf III .L'V4EEP,flSOLVE,NTDHA,NTMAX ,NTRAV.NUMCOL,NX,NXMAX »NXM1 . 

9 PXM2 * fi V V v ^IXYP,l'IXYU,|jXYV.NY,fJYMAX,NYMl.NYM2.Oxn.0XC.PJAY, 

X I RLE <P .piESS.RELAXP.RF .RFSTM .RSCHEK .RSMAX.RlI.Rl0.R2l.R20. 

1 STOl CH.TI-. TC.tIWY .TMAX .TFtIU.UBiUC.WMIX 
LUG I C,'.L CtlNVG 

CFHMr.M /HJUEX/ IDCQ. IUC02. IOF. IDH.IUH2.IDH20. IDO.IDOH. IDOP. IDM, 

1 1 L)W|i. , Ii.'IJi !2 . ll)M2 . IDW20 . 1EOUIL ♦ IHCPS . IPR . J J » KfJTCS . NA « NLM . 

2 IiS.HSEI,.ISE2.IJSK.NSM,NS1 .NS2. ID (4.15) 

3/1 'ARaMS/ 50M(/G »Ei"!V . EPSS, GASCON. I DEBUG, ITMAX, PA .SM.TlNYK.TK.TLN. 
5/f'PECi:S/A'iU!3 ( Pfl , 3 ) . CPSUI ) « IISUH .110 ( 14 ) . SMW ( 14 ) . SO ( 14 ) . SI (14 ) . 
b S2( 14) .2(2.7, 14) 

7/( Etli l (L/ AT. 1 . ACp , AC3 . ACA , AMI .AH2.AH3.AHA ,ASM1 . ASfl2 . ASM3 , ASHA . 

» ASi I 4 . 7 . P ) » 1 10 1 V . UMAX , HmIM . PEXP ( 7 ) 

9/REAcrS/nx( lb) ,f',X2(15) .7 ACT (15) . TACT? ( 15 ) . TEN < 15 ) . TEN2 ( 15 ) 
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PR000A40 


C-_- 

CHAPTER 111 1 PRELIMINARIES 

C 

JIH1=LP‘II 

If (Jl'.U.tU, JP) GO TO 12 
C ----- 

koLUi.;i=v 

KULU|v.=IUJr-COL 


1 PH 000450 

111 1 1 1 1 PRoOOAaO 

PR000470 

PROOOAflO 

PR000490 

FOR ALL PHI "S EXCEPT P PR000500 

PR00051 0 
PRO0O5P0 


161 


/ 


10 LlMm-HH.U-U 

LIMIT 

uoi'sir,*. i } i»u> 

LtCT=l 

II ( Jl '1 1 1 . 111 • JU ) t 0 TO 11 

c — - ' u 

ii iLuuTi.6T.nym> limiii=nxmi 

II 4LllUT2.GT.I|X'*ii LlhlT2=WXMl 
GU Tv* 2;i 

C- - - OTHER PHI"S 

11 If < L 1 J-* 1 ri.GT.Myi LIM1 Ti=IJX 

II <LI.vtl)?.GT.NX> LlMJTiisNX 

Gl‘ Tl) 2 m 

C- — ~ — * — — -- -- FOR p 

in koll'iu=2 

KULUfa2=» lUHCOL + l 
13 LIMIT l«K0t.U*"l 

LIMIT 2=KO| UM2 

II (LiniTl.GT.lJXM) LIHITlsNXMl 
II (LMI TP.GT.NX'U I LIMII2=NXM 
LTOPsiJY.il 


U OT-2 

C 11— 1 II- 

CHAPTER 2 2 2 2 2 PRINT TlTLL OF VARIABLES 2 2 2 2 2 2 

C 

20 WIUTU6.2fiO > TITLE ( JPllI > * T I TLF. < JPMI > 

21)0 FORMATI/lV .IbliriLLO VALUES OF.lX* AM *2X , 22( 111- ) . AM , 22 ( 111- > > 

C-- ------ 1 -1- 

CHAPTER 333b PRINT FIELD VALUES 3 3 3 33 33 

C 

DL dj 1] YsLMOT.LTDP 
1T=LT0P-1T Y+LUOT 
DU 3 u IX=I lt<tm,LlMlT2 
II ( JP||t-JU)30l ,31 «301 
301 IF('JP|.1I-JV>302, 32,302 

30? II ( JIMII- Jl' ) 303 « 33 1 303 

303 COUTiUUt. 

31 I=IYMlX-i )*NY 
GU TO 40 OR 

32 lsIY+( W-l ) •* 14 YC > 1 
GU TO 3‘XJsi 

33 I=IY-14 ( lx-2)*UYM2 
3000 I = I4IXLR0( JPII1) 

30 STDRf ( I> )=F ( I ) 

II ( Jplll- Jv ) 31i) * 31 1 * 310 

311) 1 WKITM6*3I00)TY.Y( IY) . (STORE(IX) .Iy-L1MIT1.HNIIT2) 

GU TO 6) 

311 MR 11 1” I R i 3 1 0 1 > TY.YVUY) . (STORM IX). IX-|_IK1T1 .LIMITS > 

3y ti mi pup 

IT ( JPUI- JU ) 32o 1 32 1 .320 

320 WRITE I&.3) O’?) ( TX.X(IX) , IX=LIPI Tl .LlMj 1 2 ) 

Gb T 0 f‘- v U 
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4 ISNI LP.lv, IXMOIJ.IXPRLF.IXPI.IXU. IXUpl, IXW.IXINY.IXINYU. 
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f> iYf‘i '1 r ,lYW. 1YW.U .IYWP 1 , JLMU, jr M. JFUE. Jll.JLAST, JP. JPP, MHn. 

7 JS1 , JS* * JTLto • J!|» JV .KASt, .KINPRI . KLT t KRAO .KRHQMU. KSWEEP . KTFST . 
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II (JPII1.E J.URIIO) go TO ixo 
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Hr TURN 
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10 1 = 1 HXl'iYu 
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B0000430 
BOO 00440 
B0000450 
BU000460 
B0000470 
BO0004R0 
00000490 
BOO 00500 
B0000510 
DOOOQ5PO 
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i=i y * ixiuyu 
1 1 = 1 •*! lY 

12 U(JU)=um 

u» ruiui 


UPDArr I' t IN BOUNDARIES. 

Al PIPE AXIS. 

MO 1=1+) Xl’.Y 
mi) =m » + i » 
i=i+tuwj +<nr 
lit I) =n (.i + i > 

-- UPDATE H AT EXIT 

iHix.m .,>) return 

II ( IMC.C Q.l) RETURN 
DO 42 IY = |YU.NY 
1 — 1 Y + l X 1 H Y 
Iv=I-l)Y 
42 H 1 1 W ) =11 1 1) 

Hi IUKm 

UPDATE MxTUHr FRACTION OH BOUNDARIES. 

A) PIPE WALL < 

50 I=lJY+rXJNY 
FM I )=F : M T-lJ 

-Al PIPE. AxlR. 

1=1+1 X l" Y . 

I hlisl i ll+l) 

-----SI I MTXHIRE FRACTION Al NODES IN THE INNER HALL TO ZERO. 
If tl/.GT.iXW) GO TO 51 

I = l Y W ♦ 1 / 1 ( I Y 
H ( I ) =0 . 0 

Al PIPE EXIT. 

51 II (IX.I L.H) (10 TO 53 
If t tt!C .1 0.1) fit) TO 53 
DO 52 IT*) YWPl ♦ M Y 
IrlYflXANl 

Il. = l -I IY 

52 FM ( i v; ) =1 Mil) 

53 lMlX.Hr .liXHl) RETURN 
DO 54 X V — I ♦ MY 

1=1 Y+IX1NY 

II =1+HY 

54 FMlU=l Mt l ) 

HI Till Ml 

--0V DATE I Ui L HASS F RAC I10II OH BOUNDARIES. 

A I Pir’i: WALL. 

60 I=NY+1XJ.I!Y 

r ueu )=i Ui u-i ) 
c ai pipe axis. 

1=1 + 1X11 Y 
fUt(l)=IUNHl| 


DU000530 

00000540 

00000550 

DO0005A0 

00000570 

DOOOOSflO 

Bonoosqo 

B0000600 
B0000610 
B0000620 
130000630 
BOOOO 64 O 
00000650 
B0000660 
00000670 
B00006fld 
BOOOQ69(j 
B0000700 
B0000710 
B0000720 
B0000730 
B0000740 
00000750 
B0000760 
B0000770 
80 q007rQ 
80000790 
BOOOOOOO 
BOOOOBlO 
B0000820 
BO0Q0830 
00000840 
B0000850 
B0000860 
(30000870 
00000880 
B0000890 
00000900 
BO00091 0 
B00009?0 
B0000930 
B0000940 
(30000950 
BOO 0 0960 
B0000970 
B0000980 
00000990 
00001000 
BOOOlOlO 
BOOOIOPO 
B0001030 
BOQ01040 


non 


c si t race iass fraction at nodes in thf inner wall to 2 ero. 

IF ( 1 X . G I , | XN). GO TO 610 

i=iy .v «-i *imy 

r I'Li i )=n.u 

c at Pipe. Ear. 

610 IF I K;' E.2) GQ TO 630 
IF I InC.r.U.lF GO TO 630 

do 6^n it,-jv«pi,my 
irir+ixint 
I = I -rj Y 

620 F t E( IVi)=F lL(I ) 

630 It i I x.NL.:iA‘U > GO TO 6bli 
III 64it lYsl.FJY 

I = 1 Y ♦ I X IN Y 
It=i4iir 

640 F'l E ( IE ) =FnE ( 1 ) 

Ul UAlT -PPCILS MASS FRACTIONS ON BOUNDARIES. 

650 ll=i*lXlMf ; 

IllY=NY+tXlNY 
DO 6 1 JcJ.sliJS? 

c at Pipe wall. 

iF=iriY+rzr;iV)( j) 

Ft ir)=r(ii--u 
AT I'TI’L AXIS. 

II =H + I/’E';0< J) 

61 F ( IF ) =f : t If +1 ) 

C St T SPERIf'S MASS FRACTIONS at NODES IN THE INNER WALL TO 7ERO 

IP ( IX. Gt, rXW) GO TO 60 

I = I Y w + 1 ,1 1 1 Y 

DC 62 vl=JSl«JS? 

IF =1 1 IZI RC<! J) 

62 rtiD-u.o 
c -- — at pipe exit. 

66 IF (IX.Nu.2) GO TO 64 
II- ( ) GO TO 64 
DO 63 I f = fYWPl ,NY 
I=IY ♦ IX1NY ; 

DO 63 J=dsi.JS? 

It = 14-12? Rot J) 

IF-W=rF-|V 

63 f- ( IFw)=rt TP ) 

• 04 IV Fix .HI ,1-iXGl > RETURN 

C AT PIPE WALL. 

DO 64 lY = l.riY 
IslT+IXlNr 
no bts j~jsi *js? 

II =I + 1ZCR||(J) 

IF LsIF + UY 

65 f ( II I )=l ( ID 
Rt TURN : 


BOOOIOSO 
D0001060 
00001070 
BOOOlOnO 
00001040 
00001100 
BOO 01 11 0 
BOOOllpO 
00001130 
BOOOII 4 O 
BOOOllfiO 
B0001160 
B0001170 
BOOOllflO 
BOOOllqO 
B0001200 
B0001210 
B0001220 
B0001230 
B0001240 
BO00l2f|0 
BOOOl2fiO 
BOOO 1270 
B000l2n0 
00001290 
B0001300 
B0001310 
B00013?0 
B0001330 
B0001340 
B00013SO 
B0001360 
B0001370 
BO0013A0 
B0001390 
B0001400 
B000141 0 
60001420 
B0001430 
BOO 0 1440 
80001450 
00001460 
B0001470 
B00014AO 
B0001490 
B0001500 
B00015I 0 
00001520 
B0001530 
00001540 
00001550 
80001560 
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c 

c- 

c- 


c 


c 

c 

c 


c 

c 

c 


c 


c 


c 

c 

c 

c 


c 


c 


----UI'NA |L‘ TL.J’trUATIItU: ON BOUND All ICS. 

A 1 Pint. AXIS. 

no i=n ixi'.r 

TLM( I ) =3 E, ‘ ( l • 1 J 
i=i»nxmj.*mY 
TLM ( 1 > “ I L i ( I + 1 ) 

— --at pipe l .< i t . # 

II (IX.Ht.2) RLTUAN 
IF ( INC. 10. 1 ) RETURN 

no 112 jy=iy.ik,hy 

I = IY » 1X1NY 
U,= I-UY 

112 Tf.M(f'.V)~TFH(I) 

Kt TURN 

—.--SI T NRESSdKC AT NODES IN I HE INNER WALL TO ZERO. 

120 IE ( IX.GT. KWl RETURN 

I = IYvi 11 + 1 X2HY2 
p < 1 ) = U . H 
RETURN 

UI‘UA)E I.EoSlTr ON BOUNDARIES. 

A I PIPE. WALL. 

130 I=NY + IX1.MY 

Hi to i u-miod-i) 

A7 PIPE AXIS. 

IrlUXlNY 
RliOm=N|IOt I + l) 

A1 PIPE EXIT. 

II (IX.I'E.2) RETURN 
II* < IhC.lU .1) RETURN 
00 132 I YcIYWm ,MY 
1=IY+1X INY 
I'.v=I-.JY 

132 Rl 10 ( Lil ) -Rl '0 I n 
RETURN 

UPDATE ’j I sCOSTT Y OM BOUNDARIES. 


- — -AT PIPE WnLL. 

1 AO 1=NY + IXINV 

LHU( I )=l M'i( 7-n 
A I PIPE Axis. 

I = 1 H Xll Y 

cr'iU ii > =f m» 1 1 j + n 
AT PIPE E:<1T. - 

II Ma.I.L.2) go to 
IFlIi.C.rO.l) GO TO 
NO 143 IY = 1YWPI,IJY 
I = 1 Y + l X 3 II Y 
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141 


B0001570 
BU0015A0 
BU001590 
B0001600 
B0001G1 0 
B00016PO 
B0001630 
B0001640 
B00016r>0 
B00016GO 
B0001670 
BOO0 16fl0 
80001690 
B0001700 
B000171 0 
BO0017P0 
B0001730 
B0001740 
BOO017S0 
BO0017G0 
B0001770 
BOOOl7flO 
B0001790 
B0001800 
BOO 0181 0 
B0001820 
B0001830 
B0001840 
B00018SO 
BOOOlSfiO 
B0001870 

BonoiaflO 

B0001890 
B0001900 
0000191 0 
B0001920 
80001930 
B0001940 
B 00019 SO 
BO0019G0 
00001970 
80001980 
B0001990 
B0002000 
BOO 02 01 0 
B00020PO 
B0002030 
B0002040 
B00020SO 
BOO020A0 
B0002070 
B0002080 


w 
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141 II ( lX..i!L.infU » KLTIJRU 80002il0 

UP 142 IY=ltUY 00002120 

IrlY + IXilJy 800021*0 

jr=i *iir 00002140 

m? Li UC ItjH' UIII B0002150 

»U TUIOl 000021*0 

L|]U B0002170 
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CHAPTER 0 0 :) 0 0 0 0 0 DECLARATIONS 0 0 0 0 0 0 0 S0000040 

C. - * 1 1 L .i-l.SOOOOOSO 

CD^’«)il/t 0 1A/ 0(4001 iV(475> , H ( 500 > .FM<500 ) .FUE( 500 ) »FS ( 50(1 , 15) , SOOOOOftO 
1 I I' 12R ) .TRM ( 5M) ) »P t ‘HH ) »RliO(500 ) *EMU( 500 ) « S0000070 

1 l/XG(25» .HXU< PS) .K0Uh|T(25) ,R0XG<25> »Rf)XU(25) ,RSXG<25> ,RSXIHP5) , SOOOOOnQ 
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.5 A (2i)) ,..l 1 20) .AN(PO) t ARLAr ( 20 > » AS( ?0 ) , A SNIP ( 20 ) . AW ( 20 ) • B ( PO ) , S0000100 

4 ESHM’12.0 I , C(PR ) .CSWIP(20)«UIFE(20).DIFEE(20) »niFN(20)« SOOOOllO 

5 DIF ll'(f’O) ,UlrwC?0> - DSN IP (20) . DU( 20 ) *UV ( 20 > »OYG ( 20 ) *OYV ( 20 ) . SOOOOlPO 

6 FLOwH/O ) »I'L0HFU20) t F LOinN ( 20 > ,FLOWNE ( 20 ) .FLOWW ( 20) * R ( 20 ) » S0000130 

7 ROYS (20) .liDY\/(2(l)«RSYG(20> «RSYV(20> tRV(20>fRVCR(20).RVSO(20) . SOOOOUO 

A SR (20) , Si |( 2U) ,SYG<20) «SYV(20) ,Y<20) . YV < 20 ) . AEDDX ( 500) . SOO0O150 

9 AIIUijY ( ;'-00 ) » AKEAN ( 500 ) . VOL ( 500 ) » SOOOOlfiO 

X ANSI ( 2 1 . * 5 ) » PftCT F ( 25) . PRL (25) *PKT(25) . RSL INE < 25 * 25 > . SOO0G17O 

1 ItW(25> , 1 LAST ( 25 I * I MON ( 25 ) « I XNY ( 25 ) * 1 7EH0( 25 ) «KS0LVE(25) , SOOOOlfiO 

2 l(SRLF(; 5) »KSSUM(25) * TITLE (25) S0000190 

D1HUNSI' N DIF MW (20 ) «DlFWW(20> ,r<llfiQ9> .FLOWNW(20 > ,FLOWWW<?0) S 000020 0 

L(.UI\)/\LI.U( L (F ( 1 ) ,11(1) ) . (TLOWFIWd) .FLOWNE(l) I » (FLOWWW(l) . ' S0000210 

1 VLU-i.CIl) ) * iniFI)K(l) .UIFNE(l) ) * (DIFWW(I) .OIFEE(l) ) S00002?0 

COM-Jfl/Ci.'Rrv SO0002.T0 

3 AK,ftRR>.0:i,ffir>.CCHECK,CHIX,DATA((i) . Op .ELI »EL2 «EmA,EMF .EMUREF , S0000240 

2 F PSI .E-RAT . E-WALL »FLOB »FLOC *FL0WIN|FLDWST .FLOWUP .FSTOIC . S0000250 

3 F ST9IMiFUtiiFUC»NFU»RWf INC t INERT, IpLRR,IPREF, IPRINT. ISNIP. S00002fi0 

4 lSWl LP.lv . JXM0D«IXPRLF,IXP1.IXU,IXUP1,IXW.IX1NY.IX1NYU. S000027 0 

5 JXl.iYi , I x 2D Yll* JX2NY 2.IYF.IYFM1.IYFUEL.IYL. I YLM1 » I YLP1 » I YMON • S00002AO 

6 IYPRCF, Irw. IYWK1.IYWP1 . JEMU » JFM . JFUE , JH . DLAST , JP.oPP, JRHO* S0000290 

7 JS1 ,JS2 * JTEM, JD,jV*KASEfKlNPRliKLT»KRAO.KRHOMu,KSWEEP,KTFRT. S0000300 

0 l ABPHI .LSWLEp .NSOLVE .NTDMA .(JTMAX .NTRAV .NIJMCOL «tJX .NXMAX .MXHl , S000031 0 

9 DXM2,NXY .,;iXYP,l.'XYU,MXYO,NY,NYKAX,NYMl,NYM2.0XBfOXC,PJAY, S00003?0 

X PULL xP 1 P ’ESS .RFLAXP » RF 1 RFSTNl « RSCHEK « RSHAX *RII » Rl0*R21 , R20 » SO0003X0 

1 & T 0 J CM . T 3 t TC * T T NY * THAX » TMIIJ * Uf3 *UC 1 WMIX S0n00340 

LOGICAL CcNV/G 80000350 

C(rliV)l) /ImDLX/ IIic0«IUCU2«IDF»IDH,IUH2,IPM20.ID0.1D0M,ID0?,IDM. S00003P.O 

1 f I)! If! * II * IDM2 * J DN2U ♦ IEOUlL * IHCPS » IPR • JJ t KNTCS » NA » NLM » S0000370 

2 I S.HSEl, !SE2 ,NSK.NSMiNS1*NS2,ID(4,15I S00003«0 

3/PAR/l IS/ LUi lVG »CMV • EPSS * GASCON * I DEBUG * I TMAX »PA » SM « T INYK « TK » TLN * TNYS0000390 
5/-SPF Lfc S/ AsUH (20*3) t CPSUM .HSUM.IIO ( 14 ) »SMW (1A) »S0 ( 14 ) ,51(14) * SOOOQ4QO 

6 S2 ( 14) */ ( 2 ,7 *14 ) S0000410 

7yi.E0V.lL /Ac 1 * AC2,AC3*AC4. ADI » AH? . AH3 * AH4 * ASMl , ASM2 * ASM3. ASM4 . S00004?0 

8 l\Si ( 4 * / * 2 ) .HDTV. UMAX. HWIN.PtXP(7) S0000430 

9/IE ACTS/ID: (151 ,ilX2 ( 15 ) i t ACT ( 1 5 ) t TACT? ( J 5 ) » TEN ( 15 ) 1 TEW2 ( 15 ) S000044 0 

COMlLiil/PT •’/ ALMRl I 1 ALliRiO » ALNR2 1 « ALNP.20 » COND * EL3 . S00004«s0 

1 I.DIS10 ,L ilf>21 ,rMlS20.L'lllSXI .EMISXO.REMI .RHOINF. • SOOOD4AO 

1 SIG; A.’ Txl .StXCmSTH ,ST10,ST2I.ST20,TINF.UINF.VINF,WAREA S000 0470 

C 1 -----S00 004RO 

CHaPTFH 1 111 1 i 1 PRELIMINARIES 11 11111 11 S0000490 
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If ( Jl ill .1 > « vJU > 00 TO 10 . 

it ( Ji'ai.t j \n go to 20 

if ( Of 'ill . I >.011) GO Tu 0 0 

II i JfiU.L ..01 M> vjU TU GO 

If ( On II. L '.vl| HI I GO TU GO 

If ( JpilT.f uO TO VO 

(if TUn i 

— -- — n_- — . — — — 

CTirtPTr.K r' A 2 2 i' 2 yOUKU; TERMS for II 2 2 2 2 2 ? 2 2 

r- 1 - — 

10 ICONS l = l> >>N YU-1 

li HU.f.O.n C.O TO 12 

Kl-XU1X=i UXUt 1 XU I 
HI ‘XU f l.s, DXUi IXUP1) 

HSXIJ LX=i S.XO{ IXll) 

Ol.llXi =U.?‘i*'<UX(.i lXUPl) 

c 

isirr^n i< iuyii 

1L =1 -» i ! Y 
114= I I X 
lliF.= Ili+ >Y 

IXU1I Y=< 1<U-1)*I.'YH1 
IV- I Yf M1 + tXU1|\1Y 
II V = 1V-»UY -1 

LNVD.vll=d ’U( I \ +niU ( IC) tLMIK III T+E.MU ( I HP I » ♦ ( V ( IEV i -V < I V > >*RV< IYFMU 

no ii iy=iyt, iyl 
i=iyhxjnyu 

11=1 M1Y 

1.. = I-.lY 
IlJ=I + l 
lllE = iil+i Y 

I\ = IYU V U1 NY 
IF V = 1 V+UY.tl 

1 1 ~ i y ico is r 

ll.l J= IP + i’Y |2 

ni L'X.isI '( u - Uf Iw) ) +HL)XUiX 

Ul-L'XI =(• ( 1L ) - ill I > )*UQXUil * 

sn.iC'- ( , t'l. i ( il » irnuuxt’-EMU < iw ) *uijdxw j *rsxu ix 

U VD>S=I t’VuXr) 

1.1. vua j=((- ‘Uiin^uut lo+twiK im+CMUl iwn i*< Vc icvi-vt iv) iyi 

SUH =SU US F ( rPVOXI'l-EUVUXS ) +URl)XG/ AREAT ( I y ) 

sn ( 1 i ) = A Rr-AE ( T Y M ( P ( 1 1 1 ) -P ( IEP ) )+0 . 5*STFRM* I VOL ( I ) +VOL ( I C ) > 

Si t iY 1 = 0 . u 

C T ILRTT.AI UNUE-K-KELAXATION 

A I AC= ) . 

A^u=<\r At * Aijs ( su ( m ) 

Af AC | =A‘ U / ( A Q S' ( 1 1( 1 ) ) FTliJY ) 

Ar A I = 1 . I t , * A ij i ) 

Al AC T =A lilt Af ACT . At’A T) 

So ( I Y I =' U ( IYU ,VF ACT*U( 1 I 
Sf‘(lT) = -P( 1 Y ) - Af act 


sun do 530 
sooOnsoo 
S 0000550 
SG 0005 AO 
SU 0 Q 0570 

sonoosao 

S 0000590 
SOOOObOO 
sonoofii o 

S0000620 

sunoofi.xO 

sonoosao 

sonoobso 

SOOOQ6AO 

S0000670 

sunOoAAO 

SOOOOftvO 

S 0000700 

sonooii o 

SU 0007?0 
SO 00 Q 730 
S 0000740 
SOOOO 75O 
sunoo 7 aO 
sonoo 770 
sonoo 7 aO 
S 0000790 
sooooaoo 
sonoooi 0 
sonooa ?0 
sunooa.xo 

SUO 0 084 0 

sooooaso 

sonoosao 

S0000070 

sonooano 

sooooaqo 

SO 00 0900 
SU 00091 0 
S 00009 PO 
S 0 0 0 0 9 3 0 

son 00940 
SUQ00950 
SOOQOVaO 
S0n00970 
sonoosao 
sunoovso 
soooiooo 
soooioi 0 
SUOOIOpO 
sonolo.30 
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GO To l'| 

S0001050 

IP 

no 13 lYsFYF.IYL 

SOOOIOAO 


1 » * = I Y •* It Or .S r 

S0001070 


U>’= It’fl’Y .2 

SOOOIOAO 


SO ( I Y » =.".|<r AL ( T Y ) * ( R( 1H 1 -P ( ILF ) ) 

sonoioso 

1 5 

Sf’< 1Y)='<..I 

sooonoo 

C 


SO0OII1 0 

. I'* 

IF < 1 Y'J • uO * 1 XW » AMU • INC *1.0 • -1 ) GO TO 1000 

sonoiipo 


GU TO 1-iOP 

soooii .30 

1 n o n 

DO H'Ol 17=2. IYW 

soooimo 


1 = IY t IX UJ YU 

SOo011«sQ 


sutiy i2nii.*um 

SUoOllf,0 

inoi 

SPtlY)=-niG 

S0001170 

c 

•extra s.-upcEs oue to iwiier tuhe. 

sonoiiao 

1002 

II (lXU.GT. IXW) KtTUHM 

SOOOllsO 


IF < IUC. IJf .1) GO TO 15 

SO001200 


IP = IfwMi, 

1 S0001210 


15= I YU 

* SCO012P0 


GC TO 11, 

MOO 01230 

15 

I P = 1 1 -iPj 

SOQ01240 


1 3= I Y .-JP ' 

SOO012SO 

16 

I = I?. + IX1NYU 

SO0012A0 


IU«KE_r=KHO ( 1 >*ABS(U( I) ) 

S0001270 


RF. = 0 • 5*1 Ui.'LF*OYG( I3J/EMUREF 

S000l2fl0 


II (KLr.LO.l) GO TO 19 

S0001290 


IF (RE • LT .152.25) GO TO 19 

S0001300 


ER=RLaC 1 AtL 

S0001310 


AkGM ili= 1 1 . 5* LW ALL 

S00013PO 


Du 17 MITrl.ll 

SOO 01330 


SliALr 1 =MIaLF 

S0001340 


AI?G = LK*^l|ALr 

S0001350 


IF (ARG.Lr.ARGMIN) GO TO 19 

S00013AO 


ShALFrAI'/AL^G ( ARG ) 

S0001370 


11 <i\HS(SF'ALF-SIIALF1) .LT.0.0001) GO TO 10 

S00013AO 

1 7 

CONTI HUE 

S0001390 

10 

S =S 1 1 A L F < * i> 

S0001400 


SF’UP ) = >Pt 12)-S*1U 1P)*HUREF*SXU( IXU) 

S000141 0 


IU T UR || 

S00014PO 

19 

SP (1? ) =:'.!’ ( 12 ) -EMUREF*SXL) (IXU)*R(I2)/(nYG(I3)*0, 

,5) S0001430 


IU TUKIJ 

S000144 0 

r 

• . * ‘ 


CllAPTt'R 3 5 5 i 3 5 SOURCE TERMS FOR V 3 3 

333333 S0001460 

f 

‘ * 


20 

1C Oils r= 1 X 2 IJY 2-1 

SOO014R0 


11 ( lx.cn. >.A|jn.IllC.EO.-l) GO TO 25 

SG001490 


if < Kioto hii . Eo. o ) go to p.p 

SOO 0 1500 


(01 SXu=0.2:v*RSXG( JX) 

S000151 0 


II.= IyF + 1XvMY 

S0001520 


I v = 1 Y F M l + TXlilYl 

soo 01 530 


Ll'/D'i il = i MU III) . (V( IV + D-VdV) )*RUYV(IYFI*R( lYr l 

1 SU001540 


Du 21 IT =T YE, IYLM1 

SO 00 1550 


I YF’lr l Y + 1 * 

sonoisf.o 
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i=iv*j xiui 

Il:=l + 1 
if = l -» * nr 
I|jL = Jh + .l 
I = i -f jr 
IUW=lWf 1 
JV*lY + l/.InYl 
ir = I Y *-!( 0| ST 
U UMsIIMl-n 

f.i uc sLli'^'i-te.fiur Tr>+f.i'HJ< inn 
Ef.UWrFMl Mi-CHu ( I W > +Ej1U( J.NW ) 

rjl t.Rr'i=(f M it*(U( IMr-UU > ) -FHUW* (U ( INW » — H ( 1W> ) ) *al<SXG*HDYG < TYP1 l 

Cl; V U Y S - L t) >7 U Yi>J 

Li'Vuri!=c h'M inn*{V(iv+i)i*v( i v » )*rdyv<iypi>*r<iypi) 

STi-H,«=S » C.<H+ ( Ff) VUYN-EUVOYS ) /ARCAEi IY> 

VcLUr-.C-l< . •>* ( VOL ( U+VOLUN) 1 

Sll«I Y >=STll< ^VULUhL + AKEANI I >*<PI,T.P»-P< Ip+1 ) ) 

Sl < I Y ) =-E" U'’i*VOLUI1E/R VSU (IT) 

C lliCRTTAL IfNOEH-fiCLAX AT ION 

Af ACsjl » ij 

ASU=AI At ♦AUS(SUUY) ) 

ACACIsA jU/(A»S.CVMVI)+fINY) 

Af AT=l.;ii».l*ASU 

Af ACT =At I! U f AT ACT ♦ AFA I ) 

SU<lY>=VUl'lY)+ArACT*VUVI 
SPUY> = .;pf iYI-APACT 

21 courirjui 
rltuhii 

?? DO 23 IY=fYP.IYLMl 
I = i Y + 1 X 1 1j Y 

I tv— 1 4 1 I 

if =iY+uo.jsr 

SI .'HYfxMit AIH I )* IP(1P)-»M IP+1 J ) 

23 SP ( 1 f ) S- . 5 b * < r MIM I ) +EHU ( IN | ) * < VOL C I ) ♦ VOL < I N ) > /RVS(3 < I Y ) 

RETURN 

PS DO At, IY = IYF, IVLM1 
SU< I Y 1 -0 • ft 
’Af, SI < i Y > =-B 
III TUIIil 

c— — - — - — ... : 

CIlAl'TI'H 4 ’1 4 'I 4 4 SOURCE TERMS FOR H 44 4 444 44 

c 1 — — ; 

40 Cl'IITlIJUt. 

DP 4 1> 0 £Y=I YF » IYL 
SIJUY )=?.>■) 

4 1; 0 SI ( IY )=(’-.» 

C 

IF ( lX.C'.HX) GO To 430 

I = I Y !■) + 1 1 0 Y 

1S=I-1 

li;-i+i 

a =iviy 


S0001570 

SU0015AO 

S0001590 

S0001600 

SU001610 

sonoi6?o 

S0001630 

SO001640 

S000l6«i0 

sonoiaao 

SG001670 

soooifino 

S0001690 
S0001700 
S0001710 
soaoi7?o 
S0001730 
S0001740 
S0001750 
S00017*0 
SO001770 
SO0017R0 
SOoOl 790 
soooiaoo 
soooiaio 
suooiapo 
soooiaso 
soooiauo 
soooiaso 
soooiaio 

S0001870 

soooiaao 

S0001890 

S0001900 

S0001910 

S0O019P0 

S0001930 

sonoi940 

sonQi9sO 

S00019AO 

S0001970 

soooi9no 

SOn0l990 

S0002000 

sun020i 0 

S00020PO 

S0002030 

S0002040 

SUO02OSO 

S00020GO 

S0002070 

SU0Q20A0 
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II = I-!IY 
ISW=Iw-l 
IJ.W=I,)U 
II ALr !Y-*J:<1 iY 
IV.AL'S-I ,*A| -1 
IrALl = 1 A| *11 Y 

i i Al,'=i«.ai -my 

]WALXW=}WaLW-1 


*»'!• AD l 3-1 • •) 

Ul-.AO i 4 = 1’ • l 

II I 1 /.til • I A a* ) GO TO 415 

At ( IY/J>=0.0 

AMI lYV,)=n.O 

At I IYW)-0 . 0 

A*' II yw> = 0.0 

Asimpn-o.o 

API IYWM1 >=0.0 

111 I=KT1 J *;MIO { T «? > *AOS 4 0 • 5* I Ul IS) +U( ISW ) » )*CMIX 
IU'1I=SXM TX )/(1 .0/<RlI*Hi D-tALMRlI/CoNOI 
01I-K01I* rC’M IS) 

1110= I TM ) *ABS< 0« 5* ( U4 IMI+Ul INW) ) MCMIX 

KOlOsxXG < | X ) / ( l . 0/ 1 R10*lll0 1 1 ALNRlO/COND ) 

OI O=i\uli"n LM( IN> 

If I IX.D .2 ) GO TO 401 
IMIl.D. I XV/) GO TO 405 
CAKdA=C“Mn*AHrAC(lYW) 

GAMAt sCARf A*H|JXGIIXP1) 

G Af1Aiv=.CARr A*Rl)XG I IX > 

(J(.OMlU=GA lAC + GAflAW 

(JCOIlLiJ;- jA’IAE^TCPI IE)*GAMAW*TEMI IW> 

GO TO 410 

401 GAHAC =C!'N|'*AREaE ( irw ) *HUXG{ IXP1 ) 

OCOliOi=i’AlAt’ 

OLOMf.5=l.A'|AC*TEM( IE> 

GO TO 410 

405 GAlTAw=CMMh*ARFAU IVW>*I<DXG( IX» 

UL0i>JIU=GA. AW 
0 C 0 1 1 1 ) ? = G A P A W * T f . fl 1 1 W > 

410 CONT1MUU 

ORA0ll=XIr,MA*(Ti:mltlAU*TEMm ) *< TCM( IWAL ) **2+TEM 1 1 ) **2 ) 
1 /C1.0/IAl{EA|j(I) *CM ISIO ) +KEHI/AREAN I IWALS ) ) 

0«A0I3=UIUDI1 
QKADI4=ORaGH*TEM 1 1 > 

SU 1 1 Y WMl ) =l< I J 1 1 *TEM 1 1 ) “01 1 • 

5 U 1 1 Y M ) = 0 c 0 H 0 p + 0 R A Dll * T E H 1 1 W A L } +0 1 I ♦ Q 1 Q 
GP 1 1 Y W ) = -iJCOt\IQi -ORAOIl -Kill I -RU10 
sul lYWPl)=f<U10*TEMI I ).-U10 

415 1 12 1 “GT2I *l5i 10 ( IWALS ) *ABS I 0 . 5 * ( 111 IWALS) +1,1 ( IWALSW ) ) )*CMIX 
IUJ2I = SXG ( I X ) / ( 1 • 0/ ( R21 *112 1 > +ALNR2 1 /COND ) 

H2l=RU2t*TEM< IWALS) 
ll20=St2()*Rll0I|.|F*ABS<UINF)*CMlX. 


S0002090 
S0002100 
SOOOP.llO 
SO0021P0 
S00021AO 
S0002140 
S0002150 
SO0021A0 
SO002170 
SO0021A0 
S0002190 
S0002200 
SO 0022 1 0 
S0002220 
S0002230 
S0002240 

son O2250 

500022*0 
S0002270 
S00022n0 
SQ002290 
S00/>2300 
S0002310 
SP002320 
•50002330 
S0002340 
SOO 02350 
S00023AO 
S0002370 
SO0023A0 
SOO 02390 
S0002400 
SO00241 0 
S0002490 
S 0 0 0 2 4 3 0 
S0002440 
S0002450 
S000246.0 
SO 00 2470 
SOO 024 r0 
SOO 02490 
S0002500 
SOO 0 25 1 0 
S0002520 
S0002530 
S0002540 
S0002550 
SOO 02560 
SO 00 25 70 
SO0025A0 
S0002590 
SOO 0260 0 


Ss«t. *i^iv..:T^d^?i*»?^:..' .. ■ .ffcr/ffw*: . • j-.4p*s;x ■• ,’fc- 


jL_ k: Js ...Jfe: MJ 4 . .... t 


RU20rSXf 7 < IX ) / ( l . 0/ ( K20*||20 » ♦ AUIH20/C0IJD ) 
U20=HU20*TlUf 
IK (IX.CU.2) GO TO 416 
C AKEA=COIjn*WARLA 
i,AMAL=CAREA*KDXG< IXP1 > 

GAMAWsCA»<CA*«DXG« IX) 

QCUHlH=(iA.»lAt«-GAMAW 

QCONU2=GAMAt*Tf:M( lWALt)+GAMAW*TEM( IWALW) 

GO TO 420 

416 GAHAE=CONO*WAR{lA*Rl)XGtlXPl ) 

OCONU1=GA4AE 
QCOND2=GAHAt*TCf1( ID 

420 QRAD01=SIGMA*SXG( IX)*R20*EMIS20*(TINF*TEM< IWALJ ) 
1 *(TII')F**?*TEP(IWAL)**2) 

SUiNY )=OCDf'JO2+ORAL»I4 + URADOl*TINF+Q2I+02O 
SPINY )=-0C0N0l-0KAUI3-URAl)01-RU2I-RU20 
SUUlYMl >=RU2HjTEI4( IWAL)-Q2I 

IF « IX.NK .UXMI) RETURN 
)IEL3C=0 • 5*EL3/COND 

00 425 IY=2fNYMl 
1=1 Y+IX1NY 
IE=I+NY 

1 V = I Y + 1 X lflY 1 
1VS=1V-1 

HXl=STXI*!!llO(i)*AnS(0.b*IVUV)>V(IVS) ))*CMIX 
UXl=AREAE< I Y)/( 1.0/MX 1+HEL3C) 
qxi=uxx*(tem( n-TEMiitn 
425 SU(1Y)=SU(1Y)-GX1 
RETURN 

430 UO 435 IY = i Yf , IYL 
1 = 1 Y + IXlliY 

I V = 1 Y ♦ I Xlf |Y 1 

IW-l-NY 

IVW=1V-NYM1 

IVSW=IVW-l 

IN=I+1 

IS-I-1 

CONOL=COMu*tL3 
IMlY.EQ.hY) GO TO 431 

HX1 = STXI+HIIO(IW>*ABS(0.5*<VUVW>+V<1VSW> ) )*CMIX 
UX1=ARLAL( IY)/(1.0/HXI+HEL3C> 

0X1=UXI*T£M( 1W) 

GAHAIJ-CONuL/ALOGIR I lY + n/Rl IY) ) . 

GO TO 432 

431 UX1=0.0 
0X1 = 0. 0 
GAMA|J = 0.0 

IIX0=STX0*R||01HF *ABS< VINE )*CMJX 
UXO=WAREA/ 1 1 . 0/HXO + HEL3C ) 

GO TO 436 

432 KIXO=srXU*RHOI(jr*AOSIVINF')*CrtIX 


S0002610 
S0002620 
S0002630 
SO0O2640 
S0002650 
S000,>660 
S000;>fi70 
S00026QO 
S0002690 
S0002700 
S00027 1 0 
S0002720 
S0002730 
S0002740 
S0002750 
S0002760 
S0002770 
S0002700 
S0002790 
S0002800 
S0002610 
S0002020 
S0002830 
S0002840 
S0002850 
SO002860 
SO002870 
S0002800 
S0002090 
S0002900 
S0002910 
SO002920 
S0002930 
S0002940 
S0002950 
S0002960 
S0002970 
S00029e0 
S0002990 
S0003000 
S00030 1 0 
S0003020 
S0003030 
S0003040 
S0003050 
S0003U60 
S0003070 
S0003000 
S0003090 
S0003100 
S0003110 
S0003120 
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lidE 


ORIGINAL PAGE IS 
OP POOR QUALITY 


UXO=AREAE(IY>/(1.0/HXU-HIEL3C) S0003130 

436 QXOs|JXO*t INF SO003140 

IFUY.EQ.2) GO TO *433 SO0O3150 

GflMAS=C0NUL/A1.0r,(K( IT )/K(IY-l ) ) S00031&0 

GO TO 434 S0003170 

433 GAMAs=0.0 S0003180 

434 AN<IY)=GAfiAN S0003190 

AS ( 1 Y ) =GAf J AS S0003200 

QRAU1=S1GMA*ARE AE (IV) * (EMISXl+EMISXO ) * ( T INF+TEM ( I ) ) S0003210 

1 *(T1NF**2+TEM(I»**2> S0003220 

AW«Ir)=0.0 S0003230 

SU< IY)=ORAD1*T1IIF+OXI+UXO SO0O3240 

435 SFUY)=-QRAU1-UXI-UX0 S0003250 

GAMAW=CONU*W/\REA*RUXG ( IX ) SOO 03260 

SU(IIY)=SU<NY)+GAMAW*TLM( IX1NY) SO0032?0 

SP<NY>=SP(NY)-GAMAW SOO03280 

H2O=ST20*RHOINF*ABSiUIIJF>*CMIX S0003290 

RU20=EL3/(1.0/(H20*H20M-ALNR20/COND> S0003300 

020=RU20*TINF S0003310 

SU(NY)=SU(NY>+020 S0003320 

SP (NY )=SP (NY ) -RU20 SO003330 

RETURN SO003340 

C S0003350 

CHAPTER 55555 SOURCE TERMS FOR MIXTURE FRACTION 5555 5SO0033&0 

C .... S0003370 

50 HO 52 IY=IYF,IYL SO003380 

SU(IY)-O.i) S0003390 

52 SP(IYJ = 0.0 SOO 03400 

RETURN S0003410 

C S0003420 

CHAPTER 6 6 6 G 6 6 6 SOURCE TERMS FOR FUEL 666666 6S0003430 
C_ ^ S0003440 

60 T1=PI<CLXP*PHESS**2 S0003450 

DO 62 IYslYF.lYL S0003460 

I=1Y+IX1NY S0003470 

FUimiiT=AMAX 1(0.0* (FM( I ) -FSTOIC ) *RFST M ) SO003480 

FULX=FUE(I)-FUBRNT S0003490 

IF (FUEX.GT.O.O) GO TU 61 S0003500 

SP<XY)s-UIG S0003510 

GO TO 62 S0003520 

61 FOX = AMAXl(TINY.STOlCH*(FUE(n-(FM(I)-FSTOIC)*RFSTM) > SOO 03530 

SP(IY)=-T1*EXP(-ARRC0N/TEM(1»)*V0L(1)*F0X*FUE(I)/FUEX S0003540 

62 SU(lY>=-SP(lY) ♦FUBRNT S0003550 

KLTURIJ S00035&0 

C - S00 03570 

CHAPTER 777777 SOURCE TERMS FUR P* 777777 7 7 S0003580 

C - SOO 03590 

90 ERRUR=0 • 0 S0003600 

IF ( I X . EG . 2 • AND . I MC . EU . - 1 ) GO TO 93 S0003610 

DO 92 IY=IYF 1 IYL ' SU003620 

C ERROR MASS SOURCES SU003630 

ESMASS=-FLUWN( IY>+FL0WN( IY-1 >-FL0WE( I V ) 4-FLOWW ( I Y ) SOOO064O 
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SUMY >=ESHASS 
$HUY>=0.0 

92 EKKUU=EimoR + ABs ( ESMASS) 

IF* (IX.I'Jn.UXMl.OK.lNC.Ut.l) GO TO 95 
SU ( I YL ) =0 . 0 
SPMYLI=-GIG 
GO TO 95 

OUTLET BOUNDARY - UNIFORM PHESSURE ASSUMED • 

93 DO 94 IYsIYF.IYL 
SU(IY)=0.0 

94 SIMIY)=-0IG 

95 RSLlflEdX, JPP)=ERROK/KSRLF ( JPP > 

ARSL ( IX * JI’P ) = AL1S (RSL1NE ( IX « JPP ) ) 

RE1URN 

ENU 


S0003650 
SU003660 
S0003670 
S0003600 
S0003690 
S0003700 
S0003710 
S0003720 
S0003730 
S0003740 
S0003750 
S0003760 
S0003770 
S0003700 
SOO 03790 


ORIGINAL PAGE IS 
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Sl'blU'UTlIJi w/vU. I 1 1 . STLK r *l. STERM1 » IY » JPHI > 

CuMPOIIA <).‘A/ (M4A0) ,Vi475> .H(f.90) »FM(500) .FIJE(r>nr f ) ,FS(500,1S) ♦ 

1 PP(2n> iirHIiinn* .P< ( U4) .K!IO(500) .EMU(500> * 

1 \ AG(;5).|.X<)(?5),K0UNr(25) .RDXG(25) .RDXU(?5) .RSXG<25> .RSXIM25) . 
? STORE t. '5 1 «sSX0(?5HSXU(25> »X(25> *XU(25) * 

3 A (2d) ».'T « kn ) ,AMt?0) .ARLAC(20) .AS (20) , ASNIP ( 20 > , AW ( 20 ) ,0(20 ) . 

4 l Sll!P(,-0 J .0(20) *CSUIH 4 20 > . OIFE ( 20 > .0 ITEE ( 20 ) .DIFN(20» » 

5 I I rim -'0) » DIFW ( 20 ) » DSl'ilP ( 20 ) . DU ( 20 ) » OV ( 20 ) »DYG ( 20 ) »OYV (20 ) . 

6 F LO'.T(-'O) »FLOwlTC(20) .FL0Wi\l(20) .FLOWNE(20) »FLOWW(2Q> .R(20) . 

7 f-0Y,;<2'! > ,«DYV(2D) »RSYG(20) ,RSYV(20> ,RV(20> .RVCI3(20) .RVSGU2Q) , 
n SP (;>•)> ,Stl(20 I ,.SYGt20) .SYV(20> .Y(20) .YV<20) * AEDDX < 500 ) » 

9 AIJUnYCiOft) *ARFAI)(500) *V0L<5U0> * 

X AUSLT.2y.P5) .PRCf F<?5) .PRL(25> .PRT(25> . RSLINE ( 2b . 25 > . 

1 l EV«1 2b ) . t LAST (25) * I MON ( 25 ) *IXMY (25) « I7CU0 ( 25 ) »KS0LV£(25) . 

P I SUM* (25) . R SRI If* ( 25 ) .TITLE: (25) 

DlHCllSl'iN JIFMW (20 » . DIFWW ( 20 ) ,F ( 11889 ) .FLOWMW ( 20 ) .FLOWWW(PO) 
tuUIVAL! FJr,E(F ( 1 ) ,U<1) ) . (FLOWMW ( 1 ) .FLOWNE ( 1 ) > » (FLOWWW(l) . 

I ( LOliFEfl) ) * ( niFMW ( 1 ) .OIFUL(l) ).( DIFWW (1). DIFEFd ) > 

(. OMkUN/ COMP/ 

1 /,K,Ai)RnOH«BlG,CCnECK.CMIX.UATA(6) .DP.EL1.EL2.EMA.EMF.EMUREF, 

2 l.PST.E* R AT *EWAl,L . FLOli.FLOC . FLOWIN .FLOWST .FLOWUP.FSTOIC. 

3 F STU I M « Fi JG * FUC . HFU »HW . INC » INERT » I PLUS * IPREF » IPR INT . ISNIP « 

4 1 Si)[ KP « I :•’ > I XMO| ; ) . I XPREr . IXP1 . IXU. IXUP1 « iXW. IX1NY « IX1MYU. 

5 1 X1H Y 1 1 1 *2HYU » IX2NY2 » I YF » I YFM1 » 1 YFUEL .IYL.IYLM1.IYLP1.IY MOW. 

6 1 YPrEF . I YW. I YWH 1 , I YWPl.JCMU.JFM. JFUE, JIt.JLAST.JP, JPP.JRHO, 

7 JS1.JS, . Jir.M, JU. JV.KASE.KIDPRI .KLT.KRAU.KRHOMU.KSWEEP.KTFST, 

U LARpill .LkWI;EI>,NSOLVE,I\ITDMA,NTMAX,NTRAV,NUMCOL,HX,NXMAX,NXM1. 

9 MXM2,MvY!-.,|’IXyi»,MXYU,I'JXYV,NY,NYMAX,NyF i 1,NYM2,0XB.0XC,PJAY, 

X I'RELXP. PRESS, RCLAXP.-RF ,RFSTM,RSCHEK,RRMAX.R1I.R10.R2I .R20e 
1 STOICU.TL.TC.TIFIY.TMAX.TIIIN.UD.UC.WMIX 
DATA SHALr/11.04/ 

KWALL =2*1/11 

12 = 1 1+3-2 »-Kv/ALI 

13=1 lf2-K-,;ALL 

It (1Y.I E.O) GO TO 10000 

l = I2 + iXltTY 

If (,|PHI. *f J . Jtl) GO ro 'io 
RE TURN 

10 I = 12+ IX ID YU 

RUREF=R(lO(I)*AHS(Ud) ) 

KI.=l(iMCI *DYG (13 ) /EM’JRLF 

ir(KLI.LQ.l) GO TO 19 

IF (HL.LT.i-32.25) GO TO 19 

Et;=Rr kEwai l 

AlvGf'l I D = ) 1 . 5 *LW AL L 

DO 17 DU =1.11 

S('.ALF1 = S||aLI‘ 

afg=fj<*«iialf 

IT (AUG. LI .ARpriltJ) GO TU 19 
SDALl =Aa/aLOG( Al’.G ) 


WA00001 0 
WA0000?0 
WA000030 
WAOOOOuO 
WA000050 
WAOOOOGO 
waooooto 

WAOOOOaO 
WA000090 
WA000100 
WA00011 0 
WAOOOlpO 

WA000130 
WAnoomo 
WA000150 
WAOOOlfiO 
WA000170 
WAooomo 
WA000190 
WA000200 
WA000210 
WA000220 
WAD 00 230 
WA000240 
WA000250 
WA0002&0 
WA000270 
WA0Q02A0 
WA0Q0290 
WA00Q300 
WA00031 0 
WA000320 
WA000330 
WA000340 
WA000350 
WA0003fi0 
WA000370 
WA000300 
WA000390 
WA000400 
WA00041 0 
WA000420 
WA000430 
WA000440 
WA000450 
WA0004G0 
WA000470 
WAnOOfRO 
WA000490 
WA000500 
WA00051 0 
WA0005?0 
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II U*MS ( ti lALr -SflALFU .LT. 0.0001 ) GO TO IB 
1 7 cnIITlllWI. 

IB S-SMALrfr; 

S ILK 11s‘,*r ( 12 J *KUI<LF*SXU(IXU) 

R1.1UKII 

19 S I KM i 1 ! 1=1. W(|RL'F*SX U ( IXU ) ( 1 1 ) *KPTG ( 1 3 1 

Rl Tl'Kil 

lUOIlfl I = 1 Y * l X 1 M Y 

II .KO.JV/) GO TO 200 

Kt. I Ut\|J 

200 UuKL'f —Hi 10 ( i > ♦AITS ( V ( I ) ) 

IU =IUlHLl *|)XG ( n)/LMURtr 
If (KLT.uU.l) GO TO 290 
Ii Ih'L.l T.132.P5) GO TO 290 
LI =HL * LK'AI L 
A|‘GMil| = U.5 cCWAl.L 

bL zni 1 1 n ~ ,i * 1 1 

SHALT iss'IIaLP 
akg=u< ♦SIIaLT 

II ( AIIR.LT.ARr.iMM) GO TO 290 

SHALP=AK/aLOG( AHG» 

II CAUSISOALT-SIIALFII.LI .0.0001 ) GO TO 280 
2 70 CC.'NTlIilL 
PAD S=SIIALT I 

STLrtril=,-*HUKCr»sYvl 1Y)*|;V( I Y ) 

HI.1 Ultl I 

200 SlLRHl=l MiiKKF’+S Y V 1 1 Y I *RV ( 1 Y I ♦RPXG I 13) 
ULTliKil 
LIT) 


WA000530 

WA000540 

wAnoo^so 

WA00O5AO 

WA000570 

waooosao 
WA 000590 
WA000600 
WA000610 
WA0006P0 
WA000630 
WA000640 
WAOOOGfiO 
WAO0O6AO 
WA000670 
WAOOO&pO 
WAOOO64O 
WA000700 
WA00071 0 
WAO0O7pO 
WA000730 
WA000740 
WAOO 07*s0 
WA0007AO 
WA000770 
WA0007n0 
WA000790 
UA000800 
WAOOO81O 
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SUHRnUTIW CHEM(KoOro) 

COH'IOti/C.O' A/ IH'lftU > »V(475) *11(500) *FM ( 500 ) *FUE < f» 0 0 > *FS(500*15) . 

1 l*P(?l|> .TrMlbnO) »P ill'll *RHO(500> *EMU(50n) . 

1 LXG<?5> ,dXU(? 5> »"KOUNl ( 20 ) ,«UXG (20 ) tRUXUC 25 ) . RSXG ( 85 ) .RSxiM Pl5 > . 
P STOi^db* .SXGt?a> *SXU(25) .X ( 25 ) . XU< 25 ) . 

A MJ'lhT (2ft) , AN<«»0> * ARfc-AF ( 20 ) , AS ( ?0 ) , A3NIP ( 20 I » AW ( 20 ) . B ( 90 ) . 

4 r..'sim>(?’«n *c<?n> . cshipipo) *D irE(20> *btfee( 20> *oinj(2o) . 

5 LIFfir(20 >* HI Or. (20) *OSNIP(20) «DU(20> « OV ( 20 ) .0 YG ( 20 ) *DYV(20) • 

IP. rL.Ol.Jt (20) .rLOVU l: i 2 0 > *FLOWN(20> *FLOWNE(20) ,FLOWW(20> *R(20) ...... 

7 (•* i)Y 5 (25) ,RJYV(20) *RS l‘S ( 20 ) *RSYV<20) . PV (20 ) vRVCB ( 20 ) .RVSGUPO) . 

« SPCJO) .Stl<20 ) ,SYh(20) *SYV(20) ,Y<20> *YV(20) *AEUL>X(500) . 

9 ANO&Y < ''00 ) .AkEAN<500) *VOL(500> » 

X ARSL (25*?5) *PP.FFF (^5) *PRL(25) *PRT(25) . RSL INE ( 2S » 25 > * 

1 JEW (25) , T LAST (25) .IM0N125) , 1XNY(25> . J ZERO (25) ,KSOLVE<25> , 

2 RSRf FU5) ♦ KSSl!M(2.5> . FULL (25) 

UlMEIlSli'W OIF MW (20) *OlFv.W(20) , F ( 110&9 ) , FLCIWNW ( 20 ) * FLOWWW ( ?0 ) 

L (. UIV ALF, Mf:L ( F ( 1 ) .U(l) ) . ( FLOWIJW ( 1 ) . FLOWNE ( 1 ) ) • (FLOWWW(l) . 

1 f LOWER! ) ) ) ♦ ( O YFIIWd) lUIFMEd ) ) . ( 0 1 F Ww ( 1 ) • 0 IFEE ( 1 » ) 

LOfliVJll/CnMI)/ 

1 AK * APRC. 01 1 • lift; i CCl IECK » CMI X « DATA ( 6 ) .Up.F.Ll *EL2*Ef1A *EMp ,£MUrEF * 

2 ). PS I , E'.'R AT tEWALL tFLOB *FLt»C .FLOWIN,F|.oWST,FLOWUP*rsTOICt 

5 I STil I"M. FIIB »FUC. MFUtHitft INC* INERT flPLRs, [PREF, IPRlNT. ISMIP. 

4 J SWEEP . Ix, (XM0H.IXPRLF.1XP1* IXU. IXUpi, IXWt IX1NY. IX1WYU. 

5 lXlllYlriv2MYM,lX2ljY2.iYF.IYFMl.IYFUEL*IYL.IYLKl.IYLPI*IYKOM. 

6 j YP nLF.iYw.iYWfu . iywpi. jtMu.jrfi. jfue,jh.jlAst* jp.jpp* JRho. 

7 JS1 * JS t ; • JTEN * .III * JV *KASt «KINPR I *KLT* KHAO* KRHQMUtKSWEEP, KTEST * 

G I.ABp|ll .LSWELP* flSULVE * IJTlinA *MTMAX »NT|(AV»NIJMC0L *NX *NXMAX • NXM1 * 

9 r ,l XH2«ll v Yi *iiXYPtflXYU*IIX YV«WY , f lYMAX . (J YM1 , MYM2 » OXB « OXC *PJAY • 

X CREEXP.Pi tSS.FiLLAXP*RF.RrSTM,PSCMEK,R.SMAX«HlI*RlO.R2i*R2n* 

1 STOlCH* TR* TC , TINY « TMAX « TMIN*UB*UC , WM1X 

logical cofwg 

cnwioii / rriocx/ irico . IDC 02 * ior , idh* iump, IDH 20 , ioo , idoh ,1002 .ion. 

1 J0fiiv.lf'|.jn2. ION?. IOII 20 . lCUUIL,IHCPs«IPn. JJ.KNTCS.NA.NLM* 

2 i .S » N.SEl . iiSE2 . USK » NSM » WS1 * NS2 . 10 { 4 . 15 ) 

3/1 'AR ADS/ CONVG, CMV*L'PSS. GASCON* IDEBUG.ITMAX. PA, SM.TINYK*TK«TLM» 
5/SPF.CES/A.sUn ( 20 . 3 ) .CPSUM , IlSUM , NO ( 14 » . SMW < 14 > . SO ( 14 > , SI ( 14 ) , 

6 S2 ( 14 ) ,z!(2»/,14) 

//( tuniL/ALl .AC? .AC3.AC4 .AN1.AH2.AH3. AH4.ASM1.ASM2.ASM3.ASM4 . 

U A S 1 ( 4 . 7 , 2 ) . 1 10 1 V . I »MA X . HM 1 N . PEXP ( 7 ) 

9/l‘EAC TS/B.C 1 15 ) .0X2 ( 15 ) * TACT ( 15) *T ACT2 ( 15) » TEN ( 15 > » TF-N2 ( 15 > 


CHAPTER 1 
C 

ENTRY 


1 


1 1 


1 


ri mp 

SP1 = 1 .OKSTOlCll 

IHCPS=2 

IISl = IIJl'l/ 

052=100: 

IF ( KMTCS , • lE . 0 ) 1 1? 
UU 115 J Y=2 « W YMl 
I = I Y + 1 X J 1 1 Y 


1 = 1 


CHnoooio 
cHnooo?o 
CHOOOOXO 
CH000040 
CHnOOORO 
CNOOOOaO 
CH000070 
CHOOOOflO 
CH000090 
CH000100 
CH00011 0 
CH000120 
CHoOOl.XO 
CH000140 
CH000150 
CH0001&0 
CH000170 
CHOOOlflO 
CHOOOlsO 
CH000200 
CH00021 0 
CH000220 
CH000230 
CH000240 
CH000250 
CHD002A0 
CH000270 
CHO0O2A0 
CH000290 
CH000300 
CH00031 0 
CH0003?0 
CH0003X0 
CHOOO 34 0 
CH000350 
TNYCH0003A0 
CHn00370 
CH0003AO 
CH000390 
CH000400 
CH00041 0 
™-CH0004pO 
I CH000430 
---CH000440 
CH000450 
CH0004fiO 
CH000470 
CH0004A0 
CH000490 
01000500 
CH00051 0 
CH0005?0 
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IH I.v .U .MX) Ml 10 XU 

If ( 1 > * C'. 1 « 1 Y' J • Al'IO • I X • Lt . 1 Xd ) GO TO lip 

r Uk ) I 1 SAH \ lil t FUC U ) » Fi“* 1 1) > 

Ffi(I»IPt')=AHAXT< (FMm-l UU I f) *SPi . TlflV I 

CMI, tb*»jnsfthA:t*< <m(l)-<rM(I)-FST01C)*ar5TM>*ST01CH,TlNY> 

FM 1.101 )=FUL)1» 

r s ( 1 ,10M2)-FS|1,1)'B» 

I Il2~l .0 

OQ iub I Sr, MSI , ItS? 

i»p I is > =1 S ( i * 1 s > 

ms fHa-ni 2 -s,Miis) 

I f>< 1 ,iOlii!f=rHP 
}>a( iuwi)=t wp 
n*: = TLJMU 
Li.TH=ii) i ) /GAscmi 
dg no mmirwAx 

CALL HCl*S 


CH000530 

CH0005H0 

0(000550 

OM0056G 

0)000570 

diooosno 

CH0Q0S90 

CHQ00600 

01000610 

CH0006?0 

CH000650 

0)000640 

01000650 

01000660 

CM0Od67O 

0)000660 

0)000690 


O P 1 x=Ci S<»M* ( AC1 i ( AC2* < AC3 + AC 4 *TK ) *TK ) *7)) ) *FS ) 1 , IPR ) 
flMxrrllSi t-WTKMAl»l4 lAH2F|A)l3+AH*»*TK)*rK>*TKI*FS|l*IPH) 
DlLMI'SU Inh-))MIX)/)TK*0-'M1X) 

TKSAMU! ( IK* 1 1 . O+UTEmP I , TMAX ) 
ik— amax.) ) rK » rruo 
II-iAwSO.'Tf MPl.LT.kPST) GO TO 113 
110 CUWTINUL 

WKITf JX. 1Y»NTI'1 AX*TKiOTEMP 

GU rn 1J3 

ii? urn u=m r > 

GO TO lib 
113 T) M(1) = 1K 
115 CUNTlilUF 
1=)IY + IX1NY 
)t«U )“)!( I > 

130 R'RMAT (1111,101 IH-) *Kx»o1HPOOH CONVeRGFMCE OF 
1 7HAT t,\ t, £3,101). ANU £Y = , I3/13X,2?.flMUMf)ER 
1 lix » iSl'Tt Mt’LRATUKC =, lPLlS .6/13X , 7HDTFMP 
;> 2 b! U*.* ^UilAoUT lilt TLHP *♦♦*/) 

LAOPH I -OTF- M 

II (KTCST.ur.1) CALL TLST (21 f 

kltuimi 


TC ^PERATURE/l 3X * 

OF JTLRATIONS = .M/ 
-« lPL15.fi/l3Xt 


OlAPTLR 2 

C 

OfTR| 


3 >> 2 


2 


205 

210 


OltlS 

IH'GSrMsI'pf.ij 1 ' /GASCON 
OU 210 J YslVF.lYL 
IslYflXlMY 

Si '=< A\w n ( ASI IP M AKM.'S+ASH'M-TFm I > T ) )*TEM( 1 1 |*FS< l, IPR > 

UU 2l)5 lS=NSl,l>ISc 

-Sf !♦ rs < I « IS 1 /SMW ( is > 

HI ill) n=l‘l)i.vSCiJ/(TU1(I)*SH) 

LAOPl 11= JUllO 

IMKII Sl.t.r.1 v CALL TLS I < 21 f 


01000700 

CH000710 

CH0007?0 

0)000730 

0)000790 

0)000760 

0)000760 

CH000770 

CH0007A0 

0)000790 

CH0G0800 

CH0Q0810 

CH000820 

0)000030 

CH000B40 

01000060 

CH000060 

0)000870 

CHnOOOAO 

CH 0 OOO 9 O 

CH000900 

CH000910 

-CII0009P0 

0)000930 

,0)000940 

CH000950 

CH000960 

CH000970 

CH0009AO 

0)000990 

CH001000 

CH001010 

CHOOIOPQ 

CHOGlO.lO 

CHOOlOoO 
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A i. 


LI 


.1 1 I. 


A. 


f 

: . 
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KLTURIl 

* c_: : — i~ — — - — ---« 

CHAPTER 3 3 3 5 3 3 5 3 3 5 3 3 3 3 3 5 3 3 3 3 


LI.TRy fr.UlL 

PH AT IU=I Itrso* 0 . 5E-5 
UC 32b JY=IYF,IYL 

I = IY + lX.:ilj 

SUM=FS(1 , 1 UF» »FS( 1 1 ID02) 

FPR=FS(1,TPR) 

lll'R=(AIIH< AH2+( AH3+AMH*H;H(I ) >*TEMU ) )*TEM( I )?*GASCON 
HI’UsA.IAXnHPRtHMIlJ) 

HI R=/W1II|HHPR .UMAX) 

KIV=1 

II (HPR.GT.HU1V) Kk=2 
IIH<= ( 1 Il'I'-ilMIM ) *l-1HUlFF 
IDO 30b 1I=NSL'1,USE2 
li.=ii-n c ;f:i + i 

F.slIsASlil ,LL.KH)+<AS1<2.LL,KK)+<AS1<3.LL»KK)+ASI<4.LL,KK> 
j *MFio*iipr-:)*Hpp, 

FS ( I , ll>=rPR*£XPUSII)*PRATIO**PEXP(LL) 

30b SUM=.$UM+FS t 1 , II) 

IF (KNTCb.ru. 0 I FS< I. I0N2 ) =AMIII1 < 1 . 0-StJM, 1 . O-OXC ) 

325 CuNTIflUL 

IMHTr.SI.lL.il RETURN 
IDO 33iJ 1 1 =IJ$E l .MSL2 
LAOPHT- l l-i-JSl-1 
330 CALL TEST i 21> 

Rl. TURIJ 

c- 1 — — — 

CHAPTER 'I 4 'i n n n 4 4 <1 4 4 4 4 4 4 4 4 4 4 4 

C-l -• ----- 

III UK i K 1 Mr 
PA=Pl<LSS 

If* < Is riL £P . LO . KS tvtXP I GO TO 484 
II ( ISWEU’.L'W. (KSWLCP + m GO TO 48b 
GO TO '40b 

405 II (Ix.GT.tXW) GO TO 495 
404 IUCIly = lllC^NY 

0(1 4 02 lSP=l»NSK 

00 482 lYsIYF, IYL 

i = i y ■* r x 1 1 j v 

iuP= I - 1 rC'i Y 

IUli=I + Ii'CiiY 

FSII , t$P)=FS< IMP, ISP) 

482 F8< lOll', ISP) "f S ( I . I SP ) 

495 DO 487 I Y = 1 Yf- « I YL 

1 = 1Y 1 1 XI N i 
II"'=I + 1 

IS -I -1 
II =1 MY 


CHOOlObO 

-1-CHOOlO^O 

3 CH0010?0 

---CHOOlOflO 

CH001040 

CH001100 

cHooin 0 
cunoiipo 

CH001130 
CH001140 
CHOOllfio 
CHOOllfiO 
CH001170 
CHOOllflO 
CH001190 
CM001200 
CH00121 0 
CH001220 
CH001230 
CHOO 1240 
CH0012P0 
CH0012F.0 
CH001270 
CH0O12A0 
CH001290 
CH001300 
CH001310 
CH001320 
CH001330 
CH00134 0 

.-:_CH001350 

4 CH0013A0 

.---CH001370 

CII0O13AO 
CH001390 
CHOO 14 00 
CH001410 
CM 001420 
CH001430 
CH001440 
CH001450 
CH0014AO 
CH001470 
CH0014A0 
CH001490 
CH 001500 
CHQ0151 0 
CH001520 
CH001530 
CH001540 
CHOO 1550 
CH0015A0 
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406 


IK'* I -I IV 

n v=/'L ( 1 Y ) 4 A* ( I Y ? 4 Ai! I I V ) 4 AS C 1 v > 

DO 4{J6 lSn=I|i|j;>,HSf;2 
S2.( lsiMtFM I .ISn/SflWUSP) 

TK=Ur.<l) 

no 4 ht \ isp=i.iisk 

SI 1 1 SI’ ) s ( All ( J y I 4fs ( IN* ISP) 4 AS ( J V > *FS ( I S , 1 SP » +AK (I y ) *f- S ( 
i 4A»j| it >4(-s< ir,isp) )/a.-iv*sin/cisP) > 

41V) 5* U.SP)=FR< I* JSP)/SMW< IGP) 

PWKsDJMAT -0 • 1 0 

f>.v=i:wv/ ( vol it > )"**pwr 

IM Ti«. .H,«KbO, (i ) GO TO 400 
C/'LL Sf’r.O 
If (CoiiVt ) GO TO 410 
>P* ITt (6,4»M» lx*!* 

4A1 FORMAT (lOXtGOIICHLMlCAL KINETICS SOLUTION FAILED. ..AVO 
1 ; M 1 1 C J> RETURNED /lOX.bHAT Ixs,I3.9H.AMU« IV=,13/) 

401) UU 402 ISi J = l*flSK 
S'A EISp )~Sl ( ISP) 

SUHsii.O 

IJC mv-J 1 SP=1 »NSE2 
SUH=SUM4S? ( ISP)*SMW( ISP) 

UO 490 ISPsl.NSK 
PS ( I * tsi' ) =S2 < TSP ) *SMW < ISP >/SUM 

sum=o,o 

uo 4 g j isp=i.Nsra 
suMr-suf'i+r^ ( i * isPi 

rs u , iui i2 > =am ri n < l . h+fs t i , 1002 ) -sum * 1 . n-ovc ) 

CONTINUE 
RETURN 
LPU 


402 

410 

4 09 

490 


4 93 


407 


CII001570 
CH0015O0 
CH001590 
CH001600 
ChOOlSiO 
CU0016?0 
IW.IRP) ' CH0016X0 

CH001640 
CH001600 
CH001660 
CM001670 
CM0016O0 
CH001690 
CM 001700 
CM001710 
INI ET PROPCCH001720 
CM001730 
CH001740 
CH0017S0 
CH0017A0 
CM001770 
CH001780 
CH001790 
CNOOlOOO 
CH00101 0 
CH001820 
CH001830 
CH001S40 
CH0018S0 
CHOOlOfiO 
CH001870 
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SPOOOOl 0 

SUlifuHJT I ML SPECC SPOOOOpO 

LOGIC >L Cf.igv/G spquooao 

double rkLCTSiuij a.x.y spooooao 

COH'K'll /I.IUCX/ IDCO » IDLU2 » IDF » IDII « IOH2 . IDH20. IOO . IDOU , IDO? * I DM * SPOOOOfjO 

1 iDHft.Ii II 42 , 1 DM2 « IUN20* IEI3UIL , IHCP$ • IPR .JJ.KNTCS « NA «MLM« SPnOqOftO 

? PfStLSE ItfiSf 2,HSk»NSM»NSl«NS2,ID<4»l5) SPOOOO7O 

3/FAK.V-S/ CO IVG *EMV »EPSS ,GASC(jfj , IOEBUG , UMAX ,PA , SM » T INYK » TK » TEN , TNYSPqOOOnO 
5/SPCtCS/AcUB(2»,3) .CPSUM,HSUM,H0<14> .SMWI14) » SO <14 ) * SI < 14 ) . SPOOOO9O 

ft S2 ( 1 4 ) « Z ( 2 • 7 « 1 4 ) SPOOOIOO 

7A EDllIL/ACl «ACP * AC3 » AC4 » AH1 , AII2 • AH3 t AII4 » ASM1. ASM2 , ASM3 » ASP14 « SPoOOll 0 

U AS1 ( 4 » 7 » 2 ) » IIUTV • UMAX * HM IN • PE XP ( 7 ) SPOOOlpO 

9/PEA(. r5/B>Obl .0X2 U5) ♦ 1ACT( IS > t TACT2 (15 > * TEN( 15 > , TEN2{ 15 ) SP0OOI.3O 

CClMMOII/I.L 'INTS/ATOM (3.7) «B0(7) SP(lQ0l40 

1 /STUCHtV ALU, 14) SPOOOIRO 

2 /MATRIX/ A ( 14 . 15 ) t X ( 15 ) * Y ( 15 ) SPOOOlftO 

c- — 1- 2 21 — 1-1-1 -1 — 1-_ — l_l_sPnooi70 

CHAPTER 11 .11111111111111 SPflOOlflO 

1 1 1 1 -1---SPO0O19O 

COHVft=.l AlSC. SP000200 

SM=0 . 0 ' SP000210 

DO lllil 1S-1».N5? SPo002?0 

S2 ( I S ) =nfonXl ( S? ( IS ) . TlNYK ) SP00023C 

SP=S «+S2< fS) SP000240 

Y ( 1S)=AL0i,(S2( IS) > SP000250 

100 XI1S)=D.0 SPO0O2ftO 

X I N$ <)=()» (i SPQ00270 

Y(NSiW)=ALuG(SM> SP0002R0 

ir.A r =I|SK SP000290 

KKAT=1MAT U SP000300 

C-l-1 -1 111- -1 2-1-11 11.-11-.-SP00031 0 

CHAPTER 2; 2 2222222222222 SP000320 

C 21 1 - 2 -- 21 SP000330 

UU 200 lTtll=l. UMAX SP000340 

CALL CALC SP000350 

IT Ul)E‘.U:..f\).0) GO TU 220 SP0003ft0 

write tft.:>2i) SP000370 

221 FUKM/U (1.I0.1(JXi3»H ELEMENTS a«I»K) OF CORRECTION MATRIX /) SP0003HO 

LlO 2?.? n=i , I MAT SP000390 

222 WRITE (ft. 223) (AIK*!) .I = 1.KHAT) SP000400 

223 FORMAT (lit .1P11E10.2) SP000410 

220 HO 230 (Ul=l »f MAT SP0004?0 

K=fJD*l SP000430 

|)1M1=1 ,ll/A(llH,riH) SP00044 0 

DO 223 u=l\ , KMA1 SP0004S0 

P25 A ( NM * U ) -A I MN « U ) *UTM1 SP0004ft0 

II (K. EC*. I, MAT) GO TO 230 SP000470 

DU 22ft 1*1'. 1 1MAT SPO0O4AO 

DO 2 2 ft u=K.KMAT SP000490 

22ft A I I * J ) -ft ( | » J ) -A ( I «NH ) *A CNN » J) SP000500 

230 Cf-Ut IIJUC SP000510 

K-IMAT SP000520 


?.V» Jr-K*i SPQ 0 Q 530 

SP000540 

X<K Isfi.'.r SP 000540 

If- (liiAT.l T.J) GO TO 2*4 0 SP0005fiO 

DO 23G 1=,I»IMt SP000570 

236 SD«sr.UfUA<Kt IWX< I > SPOO 05flO 

240 XIJOsAtl »|'HATl«SUK SP00Q590 

K-K-l SP000600 

If < l\ .Ml .)> GO TO 235 SP000610 

C 1-- — 1 _.l-.-SP0 0 06?0 

CHAPTf f< 3 S 3 3 3 o 3 3 6 3 3 3 3 S 3 3 SP000630 

c -- — ; SP 000640 

LIAI=1. SP000650 

Sl*»1=HMrK SP0006A0 

DO 3m) tSrl.USK SP000670 

If <XC IS) .LP.n.O) GO TO 300 SPOOOGaO 

SUM=A-‘lA,* 1 < Xf IS » .SUM) SPOOO 69 O 

If <Sp( 1*} /SPi.Lti .1 .E-fl) SP000700 

1 r T A 1 = A ? ■ 1 1 1 1 (APS ( Y ( NSM) - Y ( IS) -9.212 ) /X ( IS ) .ETA1 I SP000710 

300 CDNTltJUL SP0007P0 

ETA=AMllil(ETAl' .2.0/SUi'i) ' SP0007.30 

c — ; ;.--spooo740 

CHAP TCP 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 SP00075Q 

C 1 — 1---SP0007A0 

no 400 1 S=1 . IJSK SP000770 

Y(IS)=T(I.^)+tTA*X(lS) SP0007fl0 

Y < IS ) sA.'AXK Y I (S > . TNY ) SP000790 

400 S2 ( IS ) =( X|> ( Y ( IS ) ) SPOOOBOO 

II C 1 • Jtfi .<G _ (JIT • 0 )WN iTF <6 » 410 1 1 TER t ETAt ( ASUB IK • 1 ) • S2(K ) < Y ( K) . X ( K ) , SPOOO01O 
1 1 = 1 , ns,) SPoooapo 

410 rDH"MAr(lho«AMITrif = »I3»5X.5HF.TA = • lPE 1 0 . 3//1 7X . ?l |S2 « 12X * 5ML0GS? . SP00083Q 

1 PX.»ini)(L0GS2 >//<5X.A4.1P3El5.fi> » SP000840 

c-i- 1 — -i SP000850 

CHAPTER 5-9 •15 5 li 5 5 5 5 5 5 5 5 5 5 SPOOO0AO 

: :----SP000870 

If (f. TA.LT >1* ) GO TO 200 SPOOOBflO 

DO SlO TS~1 » NSK SP000890 

IT <S2<]S).LE.Tll!YK*1.00ll GO TO 510 SP000900 

If <AiiS(X( IS) > .GT.EPSS) GO To 200 SP000910 

510 COWtilfUL SP0009P0 

COfJVOs. fio.it. SP000930 

RfTUlOf SP000940 

poo cohtihol SP 000950 

Kl-TUliil SP8009ftO 

TWO SP0Q0970 
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caoOooio 

SUBHu'JTMJf C/LL CAO000?0 

LL'GRvL C» UvG CA000030 

PfiUljlF. I ‘HI Cl'stOU A * X , Y CA000040 

CtmfVi.J /Jl.UC*/ U'CO,IUCU2iIUr ,inHiIUH? t !DH20,ID0tID0||,lD0?.TDM, CA00005Q 
1 1 Dllu i li ‘l!.>2 , inn? i IUM20 * 1L JUlL * IHCF’S * IPO , JJ , KNTCS ,NA *NLM , CAOOOOfiO 

V 10(4*15) CA00007D 

3/1 AHA is/ LOUVfi.l f'iV*LPSi)*GASGOf|.lDEnUR, UMAX , PA , sM . TIHYK * TK . TLN * tNYCAftOOOAO 
5/SPCl.l S/A tUH ( ?0 , 3 ) ♦CP->l>I*'i* MSUh ,110 ( 14 ) ,SFW(14) . SO < 14 ) , SI < 14 ) , CAOOOOqO 

6 Si? (I'D ,2(2,7*14) ' CAOOQIOO 

7/{.LUulL/ALl»AC?, AL3*AC4.AII1.AH?.AH3»AII4,ASM1 * ASM2, ASM3* ASH4 • CAOOOHO 

0 AS1 ( 4 * 7*2) * I If) IV * HMAX * I (MIN * 1’E.XP ( 7 ) CAQOOlPO 

9/t-XAUS/HX(L5) *f X2(1S> *1ACT(J.5) .TACT? ( 3 5 ) . TEN ( 15) . TEN2 (15 ) CAQ00130 

CuM!iO'|/r L. NTS/ATCIH(*5,7) ,00(7) CAOOQluO 

1 /STOdli/ AL ( 7 * 14 ) CAOQQIqO 

2 /,1A l •( I / / A ( 1 4 * 1 5 ) * X ( 1 5 ) . Y ( 1 5 ) CAoOoUO 

— i-^-;;_:_cao 00170 

CHAPTfc R 1 i l l 1 1 1 1 1 1 1 l 1 1 1 1 CAOOOloO 

c-- -- --- 1-, — I — cAooolqo 

[JSKlrlJSI +) CA000200 

DU 14 1-1, NS ' CA000210 

00 10 Kal.WA CA0002PO 

10 A( l,K)-ii.o CA000230 

HtlSF-l'A/ ( TjAsCOM* T h ) CA000240 

ThlDV = 1.0/Ti\ CA000250 

RMUPsRH'-M/S’I CA0002AO 

HUSL'=IOlrf>H(H0P CA000270 

MiSHpsimsf +Rnnp caoOo2ao 

RPSHS J=l-ll >M *14 15.0 CA000290 

c_:_ — . — .i-ii—L — 00300 

CHAPTER ?. <• 2 ? 2 2 2 2 2 2 2 2 2 2 2 2 CAO0O310 

c 1---- 1 .:^:_CA0003?0 

00 2110 U=1 *vJJ CA000330 

H I -B < ( J 1 *r XP(-TACT (J» 'MKJUV)*TK**TEN(d) CA000340 

R?sDx3(,») ► EXP t -TACT8 1 J ) *TKINV) *TK** I'PM? (d ) CAQOO350 

1 = 1LJ(1,.J) CAOOOSfiO 

H = IU(,'*d) CA000370 

M— 10 ( S*d) CA0003R0 

I'i-inpl.J) CA000390 

If (K.EO .( 1 ) 00 10 20 CA000400 

11 (,l.t. .•>) GO TO 30 CA00Q41Q 

MODl.sl CA0004?0 

K1=(R1LS> tS2(l) ) * ( Rl*S2 (K ) ) CA00043Q 

K?s(k'KW*v2(.M) |*CH2*S2(!i) ) CA00Q440 

or In 4 1 * CA 0 O 045 O 

?() MODES? CA0004OQ 

IM.=!lllSHi ) CA0OQ470 

k?=H|lM-i‘.0 1 02 (Ml *R?*R2(H) CA0004nO 

GO Tli 4,i CA0QO4SO 

50 Ml, DCs $ CA000500 

IU=I(|!Oi.|-U<s M1)'*H1*'S2(K) CA00051 0 

H?=mi-,c4 ;2 ‘•S? ( fl ) CAOOUSpQ 
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■V 


'♦0 T>il=ia-h2 

Alii] }*/»( f » I > flu 
ACM* l )=/- ( « I ) -PI 
AC I «!•,»=/' c i • n » -!•? 

AlM«.'Us/l( '.'1) M'2 

AC I VIA ItAi I *MA > - I I’ll 
A C M »t(A ) ~A f I'l » f J A ) 4-TM1 
II (IM)Li .t‘0. 3) CO TO 50 
A C 1 1 * 1 | =/. < ; l • I )-ri 
AC II * ) sA ( i 1 1 i’>) H'2 
A ( I * I' ) =/' ( I til I -F!2 
A CMtli >=/'.<! til ) +l<2 
A C H«I| ) =/i ( i 1 1 II ) *-f’2 
A ( II » I iA ) "- A ( N t HA I + Tffll 
If (r.OUL .FW.2I GO TO 200 
5U ACK.I >=/' ( Kt I ) fPl 
AC I«h ) =M T *K | fHJ. 

ACfc*h)=/iC ,/ tl<>+IU 
A C M * k ) = A ( 'i.K ) - |?1 
A(K»fi l=/’ IK t f ')-H2 
A C 1C » I IA ) - A C K * CIA ) -TM1 
II CMOOf .1* 0.3) GO TO 200 
A C l'l*h I = A ( In K ) -I'l 
ACK * ’I ) =A CK 1 1 i ) -R? 

200 cohtiiiul 

c — - — ; 

CHAP INC 3 3 33 353333333 


DC 3 DO iSsl.MSK 
AUS.ISJsAI IS.IS»+EHV*S2IIS> 

30IJ AC IS, I ISM t=A(T‘:.HA>+EMV*(Sl<IS)-S2ClS) I 

IU TUIflJ 
UlO 


CAQ00530 
CA000540 
CA000550 
CA0O05A0. 
CA000570 
CA0005AO 
CA000590 
CA000600 
C A00 061 0 
CA000620 " 

CA000630 
CAO0O6A0 
CA000650 
CAOOOAfiO 
CA000670 
CA0006AQ 
CA000690 
CA000700 
CA00071 0 
, CA000720 

CA0007.30 
CA000740 
CA000750 
CA000760 
CA000770 

_;..-CAO007A0 

333 CA000790 

— _1---CAOOOOOO 

cAoooeio 

C AO 00820 
CA000830 
CA000840 
CA0008S0 


► 
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O^POon 1 ^ AGB 18 
quality 


SLU.UoUTlItf CONST U, GO TO) 

Ct-Ht'Oll/cO-NV/ (1(400) ,V(475) »H< 500 ) ,FM< 500 ) ,FUE ( 500 ) ,FS( 500 , IS » ♦ 

1 lP(2t!) ,T< MtbOO) •Pt‘)l4 ) , K)I0( 500) .L«U(500>> 

1 ( XGWSl ,«.XU(p5) ,K.OUNT(£5» »RpXG (£5 ! » Ru XU (25 ) »RSXG ( 25 ) , RSXU ( 25 1 , 

£ Stour (CM ♦ SX( I (25> .SXU<£5> ,X(25> ,XU(2S> , 

5 A ( 20 ) , A[ (£0) • A!J ( ?0 ) « AKLAE ( 20 | , AS ( 20 ) , A SNIP ( 20 } » AW ( 20 ) ,0(20). 

4 r.S<nP(,>U).C(2j)) ,CSMIP(£0) .0ITe(20) .(lirF.E(20) »DIFN(20) . 

5 1 'IThf ( <01 ,niFVM20) ,USNiP(20) ,0U(20) ,nV(20) ,DYG(20) .DYV< 20 ) , 
b F LOv.l. t o'l) ) , FLOUEX (£0 ) .FLOWN ( 2(J ) ,FLQWNF(£0 > . CLOWW(20 ) , K( 20 ) , 

7 t*0Y>3 ( 2 '■ ) .HHYV i 20 ) .RSYG ( 20 ) »RSYV( 20 ) »RV ( 29 > , RVCD( 20 ) .RVSQ ( 20 ) , 
a SP ( 2*i ) « S’ i ( 20 ) . SYG(PO) ,SYV<20) , YU0> ,YV<20> .AEDDX(500) . 

9 fflDPYd'Oil) , AUKAN(SOO) .V0L(500) , 

X A US l (2) ,2S) ,Pl?FFF(25) .l } UU(25) ,PRT(25) ,RSLINEIP5,25> , 

L iEW(Pb) , t LAST ( 25 ) . WON (2b) « IXMT ( 25 ) „ I?ERO ( 25 ) , KSOLVfi £5 ) , 

? USUrF(Ab) ,HSSU?M25)/, TITLE (25) 

niMLusiC'M urrwwrao) »difww< 2U) .ruinG9> ,flownw(20) ,flowww(?o) 

tuUIUALI Nt EtF(l) »U(1) ) » (I LOWNW(l) .FLOWNE(I) ) , (FLOWWW(l) . 

) TMVm X ) ) . tnTFNWd) .UlFNCtl) > . ( UIFWW(1 ) .DIFEE ( 1 ) ) 

COtVOM/CUMlV 

1 /iK , AUR' On.BlS , CCFIECK , CM IX , DATA ( 6 ) »Dp ,EL1 ,EL2 .EMA »EMF , EMOrEF . 

2 u’si a .’Rat . f wall, flqo.floc. flow in. fi.owst .flowup.fstoic. 

3 F STolH.FuB »(’UC » Ilf U.Hw. INC, INERT . IpLRs, 1PREF « IPRlNT . I SNIP, 

4 ISWI F.P, Ix.IXMniJ.IXPRLF.IXrU.IXU.IXUpi, IXW.IXINY.IXlNrU, 

5 IXlUYl , IX2UYU , IX2NY2, IYF , I YFM1. IYFOEL, IYL. IYLMI, IYLP1 , IYmON, 
b T YPRir , I Y W , I rWM 1 , 1 YWPl , JEHU , JFM , JFUE , JH ♦ JL AST , JP . JPP . JKHO . 

7 JS1 , JSc , JTf M , Jil , jV «KASE .KINPRI ,KLT , KRAO , KRHOMU .KSWEEP .KTEST , 

!> EAKf ill ,1 ^WuEp , N80LVE.N1 DMA . MTMAX .NtRAV , NUMCOL .NX .NXMAX »NXH1 , 

V NXfV . M ‘ YG , NX YP , NX YU , NX TV, NY . NYHAX , NYMJ , N YM2 » 0X8 » OXC , PJAY « 

X I’REi. XP » PaLSS . RELAXP , RF , RFSTM.RSCHEK, rrMAX » Rll ,RlO ,R2I ,R20 , 

1 ST01CII. TO. TC, TINY. THAX. THIN. UO.UL.WHIX 

C CONSTANTS RELATtO To NX ANO NY • 

IS (KIjOIO.NE.P) GO To 31)00 

NXMIsiiX-1 

NXM2=liX-2 

NYM1=uY>1 

NtM2~NY-2 

C -- TOTAL NUMBER OF NODES FOR DIFFERENT VARIABLES 

NXYG=llXn'Y 
(l>YP=NX P-MIYMP 
(f/YU=f;X'*l^NY 
NXYVsilX-UltMl 
Rl TURN 


C CONSTANTS RELATED TO VARIABLES 

3000 IF (KGOIO.NE. I) GO TO bOOO 

K 1. 1 IOi (U= F S « i L VL ( JP) 10 ) + KS 0 L V F* t JEHU ) 

C I ZERO , I LAST AND IEVJ TOR DIFFERENT VAfdARLER 

I/LRO ( 1 ) =o 

DU 3h J=l, JLAST 

II (J-JU) 510,30) .3lf/ 

510 If (J-JV)3;'U. 302.320 

320 IF ( J“JP)3-0.305,350 


C 0000010 

C 0000020 

COQOOO.XO 

C 0000040 

conoooso 

COOOOOsO 
C 0000070 
COOOOOfiO 
C 0000090 
COQOOIQO 
COROOllO 
CFO 0012 0 
COO 00130 
C 0000140 
C 0000150 
CCOOOlsO 

conooiTO 

COOOOlsO 

coaooigO 

C 0000200 
CQ 0002) 0 
COO 0 U 2 P 0 
COOQQ 2 .XO 
CO 0 U 024 O 
COOOC /250 
C 0 n 0 ; 0 ?A 0 
COO 0 Q 2 . 7 O 
C 00002 AO 

conCopgo 

C 0000300 
C 00003) 0 
C 000032 G 
C 0000330 
C 0000340 
COQOO 3 fi 3 
C 00003 fi 0 
C 0000370 
CU 0003 R 0 
C 0000390 
C 0000400 
C 000041 0 
C 0000420 
C 0 O 0 U 430 
•COQU 0440 
COQOQ 450 
CO 0004 AO 
C 0000470 
C 00004 AO 
CO 00 O 490 
C 0000500 
C 000051 0 
CU 0005?0 
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silt IMJ-JfM*) sub«304.405 
301 IL=t'J*YU 

1LHAK-(HX‘*AX- 1 1 *I'JYMA* 

It W( JIshY 
GO T<! 3*| 

3U 2 ILsMXYV 

U,WA/=|l'HAX*UJYf' : AX-l) 
iC**! J>=sY' 1 
GO To 3*4 
303 It =N» YP 

ILMAx = (l .X iAX-,'* ) •* (HYHAX-2 1 
ILWl J)=l.1>2 
Oil Yu 3*4 
30*4 II.SNY 

lLHAXsNYHitX 
If.lfM J)=il 
(it r>: 3 *+ 

305 ll=NXYG 

ll.f'iAx=(‘J’ih aX'*I' 4YHAX 
rtw(j)=i y 

3*4 ILASTI JtsfZFJUiH J) + tL 

li-tJ.eO.JtASn GO TO 3 b 
JI'l=J+i 

l/LKCK Jl 1 t slZEli 0 ( J ) + ILMaX 
3b CONTI Hilt. 

Me TUKil 

C CONST ANTS RELATED TO CHAP. 5 OF MAIN 

5000 II tKGJT0.IJL.5l MLTURN 

Il’HF.f =1 YI-xtCF-i + l ixPMEF-i ) l*NYM2 

IJO bh J=1 .ULAST 

If ( J.LU.J4 J P> GO TO 56 

ir-iout J)=1 yM0N4 1 1 XMOH-l > * JLW ( J ) 

ir « J.LO.JI'I IXiOfK J) = IYM0|'l-I+( IXMON-2)*IEW{ J) 

56 CONT I (Hit. 

Ml. TUMii 
El. Li 


conoos.so 
COOOObbO 
0)0005*0 
C0000560 
C0000570 
CO0005A0 
C0000590 
C0000600 
CO00061 0 
C00006?0 
CU000630 
COOOO 64 O 
C0000650 
COOOO 66 O 
CU000670 
CO0006A0 
C0000690 
C0000700 
C0000710 
C00007?0 
C0000730 
C0000740 
C0000750 
CO0007A0 
C0000770 
C00007AO 
C0000790 
COO 00800 

cooooaio 

COOOOBPO 

cooooaso 

€0000840 

cooooaso 

cooooaio 

CU000870 

conooeno 


i i ■■ i i t. V c L — I 1 . . t ...... A. ,._.a i. i i i <? t 1 r 1 t '.: .1 


S*®tou; 
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SUU; (l)Uf.I U( GLOM 

C.-L --1. l- 1-I-- -1 

CHAPTER 0 •') 0 It n 0 o declarations 0. 0 0 0 0 0 0 0 

c 

COf'iHOJAO A/ 11(400) ,V(475) *11(500) ,FM ( «jf)D ) *FUE ( 500 ) *FS(500*l5) . 

1 PP ( ?U ) • T I- H < bOO ) , P ( 414 ) , RHO ( 500 ) .EMU (500 ) , 

1 i,XG(25) .'’.Xlf(?5> ,KOUNT(25) ,RDXG(25) .RnXU(P5),RSxG(25) ,RSXIJ(25), 
? STOhC( >5) .SXC,(25) ,SXU(25) ,X(25) ,XU<25> . 

5 M2f>), E(20) ,A|J( 20) *AHEAE(20) . AS (20) , ASNIP ( 20 ) , AW ( 20 ) , 0 ( 20 ) . 

<4 FSfilPt 70) , 0(2*1) * CSNIP ( 20 ) *OIFE ( 20 ) , OIFF.E (20) »DIFN(20 ) . 
b l-IFlJF(r 0) *OlFW(20) •DSN1PI20) ,DU(20) ,DV(20) *DYG(20) *DYV(2r») * 

G f LU..F. ("0 ) » ELOli/KC ( 20 ) .FLOWN < 20 ) , FLOUNE ( 20 ) * FLOWW ( 20 ) « R (20 ) * 

7 HDY(,<20> .lOYV(2a) ,RSYG(20) ,RSYV(20) , R V ( 20 ) *R VCR ( 20 > .RVSGH20) . 

A RP (20) .S,l(20) , S YG ( 20 ) *SYV(20) . Y ( 20 ) . Y V ( 20 ) . AEDDX ( 500 ) , 

9 ANOPY (bOf) ) « AREAN (500 ) ,VOL(500) * 

X ARRL(2b.25> .PRKFF (25) *PRL(25) »PRT(25) , RSLINE ( 25 *25 ) . 

1 lEW ( 25.) * I LAST ( 25 ) « IMON(25i ,1XNY(25> . (ZERO (25) ,KSOLVE(25) , 

2 H SRt F ( 25 ) . RSSUM ( 25 ) * 1 1 TLE ( 25 ) 

UlMElJSlu-N UIFNW(2Q ) . DIFwW ( 20 ) ,F( 11809 ) .FLOWNW ( 20 ) .FLOWWW ( 20 ) 
EQUIVALENCE (FI 1 ) *I.J(I ) ) * (FLOlVMW(l) .FLOWNE(I) ) « (FLOWWW(I) . ' 

1 I-LO.-jlEU') ) . (DirNw(i) iOIFNE(I) ) , < UIF WW( 1 ) .UIFEE( 1 ) I 
coHriON/Cfn-in/ 

1 AK » ARR'OH i RIG , CCHECK *Cf')IX .DATA (6 ) , Dp , ELI ,EL2 t EMA ,EMf .EMUrEF • 

2 EPST ,E ,R/\T.EwALL,FLOQ,FLE)C,FLO);IN,FLOtiST,FLOWUP.FSTOIC. 

3 F STulMiF. ID. FUC.HFU.HW, INC. INERT, lPLR.s* IPREF, IPRlNT, ISNIP, 

4 ISVAEIM*, IXWON.lXPRLF.IXPl.lXU.IXUPl.lXW.lXlNf .IXlNYU, 

5 lXl f lYltI*2NYII,IX2NY2.IYF,I YFM1 , IYFUEL ♦ I YL, lYLMl.IYLPJ. , I YMON . 

A 1 YPFi.F . 1 YW * 1 YWfH , I YWP1 , JCMU , JFM , JFUE . JM . JLAST , jP , JPP , JRHO . 

7 JS1, JS?, jrEM, Jll. jV.KASt .KlIJPRl ,KLT • KrAD , KRHOMU , KS kEEP .KjEST, 

(J LAIJPIU « L.RWEEP . IJSOLVE , NTDMA .NTMAX . NTRAV . NUMCOL , TJX .NXMAX , NXM1 ♦ 

9 IJXMp* » H v Yl, , MX YP .NxYH »l)x YV , N Y , MYMAX . NYMl ,N YM2 .OxB ,OXC ,P JA Y , 

X I REL aP .P-’CSS. PEL AXP.RF .RFSTP' .RSCHEK ,RSMAX ,R1I .R10.R2I »R2n. 

1 S TUI CM . T'l , TC , T Ii’JY » THAX , THIN ,UB »UC , WMI X 
C 

c.:~:~_ — - — — ---i — --1 

CHAPTER 1 l I t. 1 1 I RADII 111111111 


GE000010 
GE000020 
GEO 00 030 
GE000040 
GEOOOORO, 
GEOOOOaO 
GE000070 
GEOOOOaO 
GE000090 
GEO 001 00 
GE000110 
GEOOOlpO 
GE000130 
GE000140 
GE000150 
GEOOOlftO 
GE000170 
GEOOOlflO 
GE000190 
GEO 0020 0 
GE00021 0 
GE000220 
GE000230 
GE000240 
GE000250 
GE0002fiO 
GE000270 
GE0002O0 
GE000290 
GE000300 
GE00031 0 
GE0003?0 
GE000330 
GE000340 
GE000350 
.GEO003G0 
GE000370 


C 


— GE0003A0 


DU 26 I r = 1 » N Y GE000390 

26 R ( I Y )'s Y ( I Y ) ■ GE000400 

c : — ;,:.geooo4i o 

CHAPTER 2222222 CELL-NODE DISTANCES 2222222 GE000420 

C - - 1—,; -1---GE000430 

C GRID-NODE DISTANCES GE000440 

nxG< i )=o . j GE00045O 

Dt G( J )=!l .1! GE0004A0 

DU 50 I-.~2.NX GE000470 

UXG ( .1 X ) -X ( I X ) - X ( I X“1 ) GE0P04fl0 

50 liliXG ( I X ) =7 ,/DXGC IX) GE000490 

LiU 31 I Y=;> , UY GE000500 

L1Y G ( I Y )=Y ( I Y ) »Y ( I) -1 ) GL000510 

51 Rl.YG(lY)=i ./UYP(IY) GE000520 
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C ll-NOUr Dl stances 

xt ( l )=,<( i i 

Im !>\> i 

32 Xl ( 1 / ) = •!,'>*( X I T X I ♦MAX.*! ) ) • 


XUUU il )=/ I'U ) 

XU t Ua ) = ' < 'X > 

U v 0 ( l 

Du 3 5 1 > -? 


nxut rx)-x,Kixi-xu(ix-i) 

33 m XU < JX) = | ./UXU( Lx) 

UaU(iiX)"0. J 

c V-NOUE distances AHn V-CCLL BOUNDARY RAH 1 1 

V.f I 1 t - V / 1 t ^ 


RV(1)=JU1> 

RVCB ( 1 > -R ( 1 ) 

UVSil< 1>-R'M 1 >**? 

DC- 34 I Y =.> • I i V Mi> , 

TV < 1Y)=<*.S*(Y< IY)+YMy*l) ) 

R V ( 1 1 )=i'.h* (l<( T Y )+R( I Y + l ) ) 

RV SO ( I Y ) -R V ( I Y ) **a 
34 II VLB ( I Y ) ->< ( 1 Y ) 

RVCl)( 2 )=R I 1 ) 

YV (IJY-'il ) = Y ClY ) 

«VU)Y ( MY ) 

UVCBOlYrl ) ( MY ) 

KVSO(,)Yr l»=R\/(MYiU>**2 
Y V (lit ) = Y C lY) 

RV (!’)Y ) =i' < (Y ) 

RVCIMi JY ) = -MUY ) 

RV S3< IY)=.:V(t)Y>**'2 
urv< n=ti.ri 
LU 35 I > =5 t'lYHt 
D»V( m=YvU r * - Y V « I Y-l I 
3b Rl Y\/< 1Y) = 1 ,/UY\H IY ) 

UYV<||Y) = 0.U 

r. - , - * 1 — -- 

CHAt'TEK 3 3 3 3 3 3 CELL DIMENSIONS 3 3 3 3 3 3 3 


C - 

C GRID-NODE cells 

SxO ( 1 ) = 'i . n 
UC 4 u I,\ = 3«IIXM2 

40 S>.u< [ X ) =0 . b* t OX(i ( I X ) -t-OXG ( ix + l) ) 


SxGU)=l X 'V ( 2 ) + 0 . 5 * D A G { 3 ) 
SXOdlXMl )-0.b'»nXG(NXMl)+DXG(N< ) 
SXG (I l.< ) =0 . 0 
IK 4U 1> = 1 *ilX 
I x 1 M Y — I 1 X i- 1 > *11 Y 
DO 4<J 1Y=1,IIY 
1 = 1YHXIUY 

4 0 arlai 1 1 1 ) -RX(V< TX)*RV< IY) 

SVGI J > = ii.u 
DC 4 1 IYry, HYi-12 


GE000530 
GC000540 
GE000550 
GE000560 
GL000570 
GE0005A0 
GE000590 
GE000600 
GE000610 
GE0006?0 
GEO 00630 
GE000640 
GE0006SO 
GE000660 
GE000670 
GE0006R0 
GE000690 
GE000700 
GE000710 
GEo007?0 
GEO 007.30 
GE000740 
GE000750 
GE000760 
GE000770 
GE0007AO 
GE000790 
GE000B00 
GEOOOBlO 
GE000BP0 
GE000830 
GL000B40 
GE000850 

geoooogo 

GEO0OB70 
-GEOOOBbO, 
GE000890 
-GE000900 
GEO 0091 0 
GEO 00 9? 0 
GE00Q930 
GE000940 
GE000950 
GE000960 
GE000970 
GEQ009BO 
GE000990 
GE001000 
GEOOlOl 0 
GE001020 
GE001030 
GE001040 


-ft 




ORIGINAL PA® IS 

OF FOOB QUAUlx 


41 SYG< I Y>=0.5* (|)YG< lY)+UY&( lY*l> ) 

STG(UY)=0.U 

SYG<?>='YM2) 4(1.5*DYG<3} 

SVGt.irhJ »=DYr> I IIY>+0.5*UYG( NY«k, II 
Dt.- 'ib i/.=y»iurn 
Hb HSXG ( I X ) = 1 • /SXG (IX) 

DC 4G I r=r t NYMl 

ARE AC (I i > = .5*(>V< 1YM-RVC JY-1) )*SYG(lY) 

4b Il.SYG( I Y ) = i ,/SYG<lY> 

AI-EAf ( 1 )=,1.0 
Al'EAl (IJr)=U.U 

C ll-VELOCITY CELLS 

SXU(1)=l'.|) 

DU 4 2 I x = .5,IIXM? 

42 SXUtIXMXl 1X+1 i-MDO 
SXU(i’)=SXU(?>+0XG(2) 

SXU ( MXh.‘l = SXU ( f IXM2 ) +DXG(NX ) 

SXUdJXKl ) =0.0 
SXU ( MX )~0 • 0 


DU 47 Ia=D.HXM 3 
47 l<SXIJ< IX) = 1 ,/SXl)( IX) 

C ----- V-VELOCITY CELLS 

syV< i >=o.o 

DO 43 H=?»UYM2 
43 SYV ( I Y ) -Y ( I Y+l ) - Y 1 1 Y ) 


SYV( 2)=bYW(2l+t)YG»2) 

S Y V Li I Y T-i = S Y V < t J Y M 2 ) + D Y G < N Y ) 

S Y V ( f ! Y M i ) = 0 . 0 
SYV (PY) -0.0 
DU 4o 1 »' =? i ' I YM2 
40 IIS YV.( I Y ) — 1 . /SYV ( I Y ) 

DU 405 IX =2 ♦NXfl 
I/. 1NY=( I X-l ) + IIY 
If =1 + I XI NY 

ADDDY (IF »r.AULAM< IF)*RDYG(2> 

DU 4L"3 I Y-2 tNYHl 
I-IY+IX1MY 

Ah DD> (I)=A«EAF( IY)KRDXG(IXtl) 
A( iDD Y ( I ) = ARE At! ( 1)*RUYGUY + 1» 
40b VdL.fl )=AKfAC( IY)*SXG»IX) 
1;<L=(IIX-1 l*MY 
DO 407 IY=1«NY 
11 = 1 Y 
l.t>IY + IxL 
ALDO.x ( II )=0.0 
4 07 At DDx ( II >=0.0 
fU TUIPI 
EliD ' 


GEOOlObO 
GEOOlOfiO 
GE001070 
GEOOlOAO 
GE001090 
GE001100 
GEOOlllO 
GEOOUpO 
GEOOllxO 
GE001140 
GEOOllfiO 
GEOOlllO 
GE 0 0 1 1 7 0 
GEOOllfiO 
GEOOliqO 
GE001200 
GE001210 
GE0012?0 
GE001230 
GE001240 
GE0012S0 
GE0012AO 
GE001270 
GEO012RO 
GE0012S0 
GE001300 
GE00131 0 
GEO013P0 
GE001330 
GE001340 
GEOOl3bO 
GE0013A0 
GE001370 
GE0013A0 
GEOO 1390 
GE001400 
GE00141 0 
GE001420 
GE001430 
GE001440 
GE001450 
GE0014A0 
GE001470 
GEOO14A0 
GEO 01 49 6 
GE001500 
GE00151 0 
GE0015PO 


non 


SL'bH*'« IT 1 1 )<■ ,i|JJIIf T ( KOO I U > 

cokhu.iaci a/ im'Uuii . v t «* ? fj » .msoo) • fh < T oo > ,fue<*\ooi .Fsisnn.irn , 

I HMp'D.l HUiflO) .PI414) . RHOI *>r»0 * [.LMUnnt)) , 

1 1 XCH -TM , XU(25> ,kOUNU 25> .«pXG*2bl ,ftuXUI?5> .RSXG(??-’ ,ftSX(J<25> 

2 S'TOi” ( bl.SXG<;'bHSXUU5),X<2?5J.XUt25i. 

3 My>M ..1(20) » AIM PO ) » AULAE ( 20 ) < AS ( 20 ) ,ASNTP(20> ,AW<?(I) .U(?,0) . 

4 I .5 1 1 »*( ' U ) *C < 20 ) .CSM1P(20) . 1) 1 IT ( 2U ) » I) I r t'E ( 2 0 ) . 0 1 FN ( 2U ) . 

b t IF 1 .!* I « 0 I .HI UK 20 I «USIUP<?.0| ,OU<20l ,I)V(20> »OYG<20> .DYVjtP.Ol, 

A I Ltl H in .f LOUT |20) ,f LOUIHPO) .FL0WNLI20) .FLOWWI20) . 14:120) , 

/ I UY (,(?*') .IMYVI20) ,RSYG<?0> ,|<SYV<20> • KV ( 20 > .HVCU ( 20 ) • l< V S Q ( 20 ) • 
■ft MM on I .S.*cau l ,{M 1,(20 I ,SY\M 20 | »Y(20 I »YV(20 I « AEOOX < 500 ) . 

V AUliUY( l '0r>) . ARL Ah 1 500 ) .VOUSOO) . 

X Aft Si I2.,» ;b> * PI.'ILFI- 125) » FPL (25 ) ,RR1 (25) . RSL INE< 25 * 25 1 » 

1 VbWCObl . T LAST ( 2*3 I « IMOUi 25 I . IXHY < 25 1 . IZCRO ( 25) , KSOLVE ( 25 ) » 

? KSftn l -fi) .1*;SSU«125I .UILLi2b> 

dimlhs £ • * 1 1 urrtn <?oi • u u ivw i ao > .fihoosh .rLOWNwuo) .flowwwipoi 
LUJ ltfAU lirUKH.odll* (FLOWIJWI 11 .FLm-lNEU 1 I . (ft OWWWIil , 

1 t LO..IT u ) ) . tniFNuU ) .UIFHEU ) ) . (DlFWWI 1) .DTFEEU) > 
r.OMflUH/C )H'i/ 

1 aK . AMD Ui.. 3lG , CCllECK.U'-tlX . (JAT A< 6 1 , DlMELl ,EL2, LMA »EMp , emuref. 

2 U J S| ,L- nxr .LWALL.FL0U.FL0C .r LOWIN.FLnWST.FLOWUP.FSTOIC. 

5 I SroiM.r DO.FUC.Ift U.HW.INC.IMER I » iPLfts. TPRCF « IPft ITIT « 1 SNIP . 

4 1SWI t (M I • , TXMCm.TXPRtF. rXPl.IXU, IXUP1, IXW, IXINY.TXINYUi 

5 l XlPYl , I>2,llY<i. IX2NY2 * IYF » I YFf'I « I YFOEL * IYL . I YLM1 . IYLP1 , lYMON. 

(, i YPf.’t I ,Ifw, IYWNl , I YWFl.Jt MU, JFM.JFUF. JH.JLAST.JP. JPP.JKHO. 

7 jSl, JS.M jteh.ju. JV.KASL.FINFUI ,KLT,K«AU,KRI(0MU.KSWCEP.KTEST, 

0 1 AlH'l II ,LnwLL» .USOLVE « N I DHA , NTMAX .NTRAV .NUMCOL.IlX .NXMAX »NXM1 . 
y HXHr.WM ' .(IXYr.lJXYU.NxrV.rJr ,NYMAX.NTMl.NYM2fOXB*OXC,PJAY. 

X ! RLf slMI'.'ESS.lTLAXP.RF.IU STM.RSCHEK.OSMAX.IUI .R10.R21 .R20. 

1 SJOJCll.Tn. TC.l JUY. TMAX.TMIM.UO.UC.WMIX 

---1 --2 2 

CHAPTER 11)11 OVEUALL-COllT IflUI I Y CORRECTION 1 l 1 1 1 


II (KOUIC-2) mOO, 2000, 3000 

C 'HRECTlOil TO U»S Otl JXU LINE 

- — -------lALCULATL OtLU 

1000 FLOWS r = -i.n 
SI>HO/\ = 0.0 

l) UilC.l f3.-D GO TO 105 

lid 10 0 IYsKT.IYL 

IIMUmIH I I Y ) .OT » 1 . OLOO ) GO TO 100 

Id Y + IXiNrU 

SM(0/>=S‘ li MV+r L0V.U1Y)/IU(1)+1INY) 
FLOWS |=1 L.'WSI +r- UUvL II) ) 

1110 Cull I X i lUi 
<K Til 1 ’,7 

105 DU 1*1 U 1 Y=I Yf , I TL 

1! <C vll U Y) .01 .l.OLOin GO TO 1011 
1 = 1 YU X) I i l U 


A P 0 0 0 0 1 0 
AUOOOOpO 
ADOOOOXO 
AD000040 
ADO 00 050 
AUOOOOFO 
AD000070 
auooooao 

A0000090 

Auoooino 
AUOOOll 0 
AUOOOlpO 
ADOOOlxO 
AD000140 
ADOOQI 5 O 
ADOOOlftO 
AU000170 
adoooiao 

AU000190 

AD000200' 

AD000210 

AD000230 

AD000230 

AU000240 

AD000250 

AO0002R0 

A0000270 

AD0002A0 

AD000290 

AU000300 

ADO0O3IO 

A0000330 

A00003.XQ 

AU000340 

AD000350 

A00003GG 

ADO 00 "370 

ADO0O3H0 

A0000390 

AD000400 

AOOOOVii) 

AU00 04 jt'Q 

A P f) 0 0 4 3 0 

ADO 0 044 0 

AD000450 

AU0004AO 

AU0UQ470 

ADOOOHAO 

AD000490 

AUU00500 

AUoUOSl 0 

AD0005?0 
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n n n r> to 


ORIGINAL PAGE TS 

<* *** QoS 


S'l'HO/ 1 sSnifiAfFLHWR ( 1 Y ) / (U( I >*TIfJr > 

FLOWS I SI Lt.W-ST+rLOWWUY) 

10H LSIIffflUL 

3 07 Of LU=U I U -UP-FI OWST >/S|<|IOA 

C — ADD LULU TO U'S OH IXU LINE 

DO 101 1 Y r I Y F . I Y L 
IMUS.H* ( (YI.HT.l.OCOUl 60 TO 101 
I=IY+lX)NrU 
Ufl)=iJ< U+UCLll 
101 CUNT1IJUI 
Rl TUKw 

c- — — ’ 

■CMAPTI.I1 2 2 2 2 CELL-wlSE CONTINUITY CORRECTION 2 2 2 2 


2000 Luurniui 

lUHSOLjt'f JU) ,M).0> GO (0 2U0 

C \ Of'KLLT U’S ON TOMA LINE 

DO 21 lrsl YFtlYL 
l = IYHX\NiU 

21 ll(ll=<i(/nui'( trl*F’P(in*rLOAT(lNCf 

C • CORRECT V*S on TDM A LlNF 

<?Ul) if (KSUL>/C<JV).FO.O) GO 10 210 
LH> 2n l i Y = 1 YF , I YLM1 
IV = J Y+1/li-iYl 

0 3 VI 1V)=VI 17) +DV ( I Y ) ♦ I PP M Y ) -PF* ( I Y f 1 ) > 

CORRECT P'S ON TOMA LIME 

210 |L0Nf>l = tX,'NY2-l 
5 U.iM=0 .0 

ARC As t). n 

DO 22 IYSIYF.IYL 

ppiiy)=ppiiy>*relaxp 

SUM=SUM+PP( IY)i»ARLAE( IY ) 

22 ARLAsaIU'A+ARLAI IlY) 

OI.LPI , =-Sui-/AKEA 

UU 2J.1 J Y=I YF • I YL 

IPs I V * II O', 1ST 

211 PllP)=! , < IP) +PP IlY) +DELPP 
HLTUIUI 


lAnr.l? 3 3 s 3 OVLRALL-I-IOMEMTUM CORRECTION - SNIP 3 3 3 3 3 


3000 UNlrlX-l 
SLM= J . 0 
AI.LAsll.ii 
lU)ll.sr=IX2NYU-l 
DO 302 lYslYp.IYL 

It (US I1IM1 Y).GT.l.('rOO) GO It) 302 

I=Tr+JXTN|U 

ii =m 

IS=l-l 

II =I>+llO*:Si 
UP=1P*I|Y 2 


AD0005X0 

AD000540 
AU0005R0 
AD0005AO 
AU000570 
AD0005O0 
AD000590 
A0000600 
AD000610 
AU000620 
ADO 00630 
ADOOO 64 O 
AD0006S0 
AU000660 
AU000670 
AD000600 
AD000690 
A000070U 
AD000710 
AD000720 
AD000730 
AU000740 
AD0007*i0 
AUOOO760 
AD000770 
AD00O7fl0 
AD000790 
AD000800 
AD00081 0 
A0000820 
AD0009.30 
AD000840 
AD0008.R0 
AU0008E.O 
AD000870 
AU000880 
AU000090 
AD000900 
ADQ00910 
A0000920 
AD000930 
AD000940 
AU0009R0 
AD000960 
AU000970 
AD0009flO 
AD000990 
ADOOIDOO 
AOOOIOIO 
AU001020 
ADOOIOAO 
AD001040 
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API A”AI(I A.AI'IAI I ir> 

Slir'i = VJM * D'ilJlpl T Y ) ♦Ul I ) - ASIIIP ( 1 Y ) *uf 1M ) -IISMIIM I Y ) *IJ< IS I -CSMIP ( I Y ) 
1 -Alp /\r.( I , MIIM- TP)“[’< ItP) » 

302 cuiii ruui 

c 

Ul =-.‘iji'VA-LA 
Df =Ai, Ax Ui,P. -5.0) 

UI-=A' nil ( <P.5.0) 

c 

If ( I PC'. I U.l > GO 10 303 
IH l/.lUi.L.IXW) GO TO 304 
no 3 ib JX\=?.iyj 
I> aMY 2=< I v X - 2 ) * N Y fl 2 - 1 
DO 3j,:;i I Y=2»M YF' l 
1 — I Y + 1 X • N t 2 
1U5 P( I )=P( I) -UP 
GO IP 310 
C 

304 I.IO 3 lit-. 1 X > = 2 . IXlj 

I>XlJY2=(I''X-2)*tlYM2-l 
UP 3 HO lYtiY.vilM.NYMl 

I = I Y f 1 X I I Y 2 
300 P(1J=IM I ) -DP 

GO TO 310 
C 

303 UO 3ilfj iX/ = lXPl,llxHl 

i x a im r .-> = ( i / x- 2 ) *nYri2-i 
DO 3(J 1 jy-2.uy;i.i 
I..-1 Y -fix ANY 2 
3 0 B P I I » =l» ( > )+UP 
C 

II (I/.G I . 1 XW) GO rO 310 

do 3:rj ix y.=2.i/ 

IXXUY?=( 1 vX-2 ) *UTM2-1 
UP 309 ] r-1 YwPl *NYM1 
i=ir+i x • i j y 2 

309 PI 1 ) =P ( f > (-UP 

310 Ilf I Ul’ ul 
El ID 


AU001050 
AUOOlOftO 
AD001070 
AUOQIOmO 
AU001090 
AD 001100 
ADO 0 1 1 1 0 
AUOOllpO 
AD001130 
AD001140 
AUOOllfiO 
ADOOllftO 
AU001170 
AUOOllflO 
AD001190 
AD001200 
AU00121 0 
AU001220 
AD001230 
AU001240 
AD001250 
AU0012G0 
AU001270 
Al)0l)12flQ 
A0001290 
AU001300 
AD00131 0 
AU001390 
A0001330 
AD001340 
AU00135U 
AU0013G0 
AD001370 
ADO013A0 
AD001390 
AD001400 
AD00141 0 
A0001420 
AD001430 


n n o 


ORIGINAL PAGE IS 
OF POOR QUALITY 


Sl.'OKuUT 1 tvi L FLOwM ( KGOTO ) 

C( U(4t)0> *V(47f>) KMSOO) .FM('inO> .FULISfiO) «f'S(500.1T>> . 

i MMpo) .Tr M(snn> ,p( 4 i 4 > . r no < 5 o o i .LMU(nno) . 

1 pXGlPb) ,nXU(P r K .KOUMISS) .RdXG< 25>> .ROXU(Pb) .RSXG(25) ,RSXIJ(25I 
P SlO!tL< -:si .SX{i( ?t>) • SXU ( 25 > » X ( ) » XU( ?<> > * 

.X A < a 0 » . *F(2U) ,MJ(?0> .l.KLAE (20) .AS(?0) i ASNIP ( 20 I • AW ( 20 ) • B C PO * , 

4 I SHIP (TO I .C(?(l) .CSNIPU0>.rJlFE<20) .01 FEE (20) .01FN(20) . 

5 l IFliF ( '0 ) »U JFH( 20 ) tOSNIP (20 ) , DU ( £0 ) . DV ( 20 ) .OYG ( 20 ) .OYV ( 20 ) , 
b FLOVlC ( e 0 > »rLnvrE(20> .FLOWN(20) .FLOWNE ( 20 ) .FLOWW < 20 ) »K ( 20 > . 

7 l>DYf,(2l ) ,UUY\/(?0> .RSYG<20> .RSYVUO) . RV ( 20 > .RVCB ( 20 > ,RVSQ(20> . 
f) ,SP t ) .SI (20) • S Y G ( 2 0 ) » S YV ( 20 ) .Y(20) . YU ( 20 ) . AEDDX < 500 ) . 

9 AMOUY ( *j04 ) , AMP AN ( 500 ) * VOL ( 500 ) t 

X AUSI ( 2“ . ?b ) .PPEFF (25 ) »PRL ( 25 ) »PRT ( 25) . RSL I WE ( 25 *25 ) . 

1 1 LV, ( ?b ) . TLAST(?5) ♦IM0N(2D) . IXflY ( 25 > t I7CR0( 25 ) ,KSOLVE( 25 ) , 

? KSlU:Fi?5) ,US.SMtf<25> .TULL (25) 
niHCUSI tN 0 IFMR ( 20 ) . D lf IwW (20 ) ,F(llfl09) ,FLOWHW(20 ) .FL0WWW(20) 
FGUIVAH tJ<*L(F( 1) tlJCU ) . (FLOWHW(l) .FLOWNEd ) ) ♦ (rLOWWW( 1 > . 

1 I LfWttll I > . (nirNWU) iGlFNEHl ) . (DlFWW(l) .DTFEE< 1>> 
LOilMOII/COMlV 

1 AK . MHCL Oil «B I G » C CHECK . CMIX. DATA ( fe ) « Dp « ELI »tL2 »EMA »LMf . EMUREF . 

2 l PSt.E 'RAT « EWALL » FLOD . FLOC .FLOWIN. FLOWST .FLOWIIP.FSTOIC. 

o rSTOTM.FllU.FUr , HFU . I W . I NC . INERT . 1PLR.S . I PREF , IPR INT » ISN IP , 

4 ISWUtP.lY. 1 XM 0 IJ. IXPRLF , IXPl, IXU,IXUpl,IXW.mNY.rxiNYUt 
b lXlilYl. I X 2HYl|» I X2N Y2 « 1 YF « I YFfll . I Y FUEL . I YL ♦ IYLM1 . lYLpi . IYMON . 
ft 1YPULF. IYW. iYWHl.IYWPl.JEMUt jrtl.JfUE. JH.JLAST.JP.UPP, JRtlO, 

7 JSl , JS? » J | LM « Jll » JV .KASE , KINFR I «KLT *KR AD » KRHOMU .KSWEEP.KTFST . 

0 L/VBPIU .1 SWEEP » HSULVE .NTDMA .NTMAX .NTR AV » NUMCOL » NX * NXMAX »NXM1 » 

9 I !XM2 . N ' Y:; .IIXYP . NXYU . (IXYV.NY .HYMAX »NYM1 ,NYM2*0XB*0XC.PJAY. 

X I 'hit I, XF » pi'ESS .ttCLAXP *RF .RFSTM .RSCMEK .rsMAX »R1I .R10.R21 «R20« 

1 STUICH.T I, rC.TIMY.TMAX.TMIN.UO.UC.WMIX 

II tKGOIO-2) K100.2000.i00l) 

i-'ASs ftov; Rails for continuity cell faces 

1000 If (IlIC.LO.-n CO 10 102 

c east i ale of nxfi» cell 

II (IXU.LQ.NXM1 ) GO TO 101 

ixxuy=i xinY H'Jy 

UL 10 IY=P .NYM1 
X L = 1 Y dXXiiY 
ILL=IE + ’IY 
Rl iOIJ=RI 10 ( 1 E ) 

If (IK It.) .LT.O.O) RHOU=RHO(IEE) 
r LUWLE ( J Y ) -Rll 0 Ut.il ( IE ) *AKEAE ( 1 Y) 

C NC R TH FACF Of- (LX+1> LULL 

IV = I Y f I.VlIlYi 
ILV = 1V + ..Y 11 
RMOV = RlK ( TE) 

If ( \l ( If V j .LT.O .0 ) RMOV-HIIO-ME + 1) 
in TLOWIIL m ) =R||()V* V ( 1 LV ) *AR( AN (IE) 


FLOOOOl 0 

FLOOOOpO 

FLOOOOXO 

FLOOOOUO 

FL000050 

FLOOOOaO 

FL000070 

FLOODOflO 

FL000090 

FLOOOIOO 

FL00011 0 

FLOOOlPO 

FLO0O1.X0 

FL000140 

FLOOOISO 

FLOOOIFO 

FL000170 

FLOOOlflO 

FL000190 

FL000200 

FL000210 

FL0OO2PO 

FL0002X0 

FL000240 

FL0002SO 

FL0002AO 

FL000270 

FL0002flO 

FLO 00290 

FL000300 

FL00031 0 

FL0003?6 

FL000336 

FL000340- 

FL000350 

FL0003A0 

FL000370 

FLo003flO 

FL000390 

FL000400 

FL000410 

FL0004P0 

FL0004.30 

FL000440 

FL0004S0 

FLRO04ft0 

FL000470 

FL0004A0 

FL000490 

FL000500 

FL00051 0 

FL00D5P0 


4 ; t • i i L. .7 l ,1. i i, ... i... . < .. t . a, v. * : * , i 


ii sin in » ix;<ijy 
iL.v=irr u .ixiNYuwri.i 

ID 

n <\mii vi.u.n. 0 ) miuv=miom>i> 

rLCHhit ( J Yi Ml )=I>IIUV*V< IlV)*AIU.AII(IE,) 
1>U tu 1 1 
C 

10? If ( I Hi. 1,1.'. 1 > GO TU 101 
l*XIW=I 'l’Y-ilY 
uu ii ii=.i,imn 

i v. = I r ♦ i *,x> i y 

IV,U~lW-tiY 
KliOUsilli M MW) 

lHUllV I. LI. 0.0) RMOUslUlUUW) 

I t OW t Y I ='lliniJ*U ( IWW ) *ARLAL( I Y ) 
lv=lr fl Ul Yl 

I'aVsI V-tiY >1 
(UlUVslMhM |W) 

II (V{ tWvl.LT.O.n) HllOV=RllO < lH+1 ) 

X \ r u 01111.; ( t Y )=(<llOV*V( IWV ) * AIM AN ( I W ) 

ik= 1 n hill XXUY 
1 V = 1 Y I • 1 i lXlim-HYMl 
mtOYsUHvI tw ) 

II (V( IWV) .ur.u.O) UHOv=KHO ( iw+i ) 

1 1 , own -j < i Yr ru ) simiuv*v ( i«v ) ♦ are aw t iw > 

C NfiKTtl FAC, I- 0| rx CELL 
101 I-lVl nUtaflY 
iv=iYriiuixinYi 
miovsnihM i ) 

II < V( 1 v ) .LI .0.(1 ) RHOV = KHOI I + l) 

I LU.JIH l Yl r-U)-nilOV*VUV) *AHEArilI ) 

UO 1«? INs'.'lYMJ 
tv-lv I IXl.lYl 
1- 1 Y t I XI IK 
HliOVsiiiU ( t ) 

11 Ivllil .l.T.11.0) RllOVsIillOI I+J ) 

I? I LOWlM 1 v ) sl<ltO\/*V (IV) *A|(LAII( I > 

IU TUt< I 
C 

2 tt 0 0 CC'itlTl l|U> 

c 

ir (i.iu.i w.-i) on to ?,x 

C LAi>T f Av.L OF IX CULL 

LK 1 IH) I )'=,>, MY Ml 
1 r I Y »• l X II > Y 
IL=1 *ilY 
RH 0 u=mu 1 1 ) 

ii did) .i r.o.tn riiou~hho < jl> 

20 FI OWl (IN) nlUlOII + il ( 1 ) ♦ AULAt ( I Y ) 

Kt TOO 1 1 

C 

21 lit! 2,* I f = i .ilYIU 


FLO005.X0 

FL000540 

flooosxo 

flooosaq 

FLOOOS70 

FLooosno 

FL000590 

FL000600 

FLOUOGlQ 

FLnOoft?o 

FLClUOftxO 

FL000640 

FLOOOAgQ 

FLnOOGftO 

FL0O0G7Q 

FLnooeno 

FL000G90 
FL000700 
FL000710 
FLo0O7?0 
FLO 0 07.XQ 
FL000740 
FL0007SO 
FL0007A0 
FLO 00770 
FL0007AO 
FL000790 
FLQ00800 
FLoOOfli 0 
FLOOOItpO 
FLOOOO.XO 
FLnOORuO 
FL0003SO 
FLOOOOAO 
FL000070 
FLoOOBftO 
FL000890 
FLQ00900 
FL000910 
FL0O09PO 
FL0009X0 
FL000940 
FL000950 
FL0009A0 
FLD 00970 
FLn009n0 
FL000990 
flooiooo 
FL nOlOi 0 
I LOOIOPO 
FLO 01 0X0 
FLOOlOhO 
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I 


i 






y 

L. 


I 


i I : 


ORIGINAL PAGE IS 
OF POOR QUALITY" 


i=iy+ixiuy 

IW=I-UY 
RliUU= ( (HU C TW > 

k <u< i w > • i r.o.m rhou=kuo<i> 

2? ri OWm IY )=r<Hl)tl*IJ( IW)*AHLAE( IT > 

Rfc.TUUiJ 

3000 II (KtiUlJT ( TX ) .GT.l ) RETURN 
|H> 30 I > =;■> i NY Mj. 

1 = IY HAltJY 
IL=I +IIY 
Ib=I-llY 
K|I0U=KIU( I ) 

If ( U { I ) .LT.O.n) KHOU=RH0< IE) 

r Lo^t, < iv » ui<i iuu*u < i >*arlae;< i y> 

Kl |OU=iU|fi ( IW> 

IP (U( 1 W) T.o.n) RIIOUSRHOII) 

3 0 FLOWw < I Y ) =|<Myi|*U( IW)*AREAL< I Y » 
RETURN 
CUD 


FLOOlOnO 
FLOOlOftO 
FL001070 
FLOUlOftO 
FLOOlOqO 
FL001100 
FLOOlli 0 
FLOOllpO 
FLOOllsO 
FLOOHOO 
FLOOllpO 
FLOOllftO 
FL001170 
FLOOHrO 
FL001190 
FL001200 
FL00121 0 
FL00I2P0 
FL001230 
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SUpRuUTlNF COEI f (LPMl > 

C 

CHAPTER U 0 0 0 0 DECLARATIONS 0000 0 0 

C 

COM-'OlI/COf t \ / U(‘»t!0> ,V<475) ,H(500) ,FM ( 500 ) ,FUE< 500 I ,FS < 500 , 15 > , 

1 PF'(20> »Tt NtbOO ) ,P('»14) .RHOlBOO) . EMU <500 I , 

UXG(25> »0XU<?rM ,K0UNT(25I »KPxG(2b) ,RDXU<25>,RSxG(25> ,RSxU(25) . 
STORE C 2b 1 1 SXG ( 25 1 »SXU (25 1 » X(25 1 • XU( 25 1 « 

A (20) » AE ( 20 ) , AN ( 20 > » ARLAE ( 20 > . AS ( 20 ) , ASNIP (20 )*AW(20),B(?0). 
DSN IP { ?0 ) .C(20> ,CSNIP(20 ) .UirE(20)»DlFEL(20) »UIFN( 20 ) . 

PlFlIt (20 > * UIF N ( 20 ) » DSNIP ( 20 ) « DU ( 20 )* UV ( 20 ) »U YG ( 20 ) » DYVI 20 ) , 

I L0wt(20 > ,FLOWEE(20> ,Fl.OwN (20) ,FL0WNE(20> .FLOWW(20 ) ,R (20) • 

ROTO C 20 ) ,KUTV(20 ) ,RSYG(20 ) ,RSY>V < 20 ) , RV ( 20 ) .RVCO < 20 > ,RVSQ ( 20 ) . 
SP(?0) * StJ ( 20 ) « SYG (20 ) <SY V( 20 ) . Y < 20 ) t YV( 20 ) . AEQOXI 500 ) , 
ANDUY(bOO) * ARC AIM 500) .VOL(bOO) . 

ARSL ( 25 » ?5 ) ,PREfF<25) ,PRL(25J ,PRT(25> ,RSLINE<25,25> , 

It W ( 2b ) . ILAST(25) » IM0IM25) ,IXNY(25> . J7EN0125) ,KSOLVE(25) , 
KSKEF(?5> ,RSSUM(25> .TITLE (25) 

0 INCUS I ON OH MW (201 » DIFWW < 20 ) ,F( 11009 V.FLOWNW < 20 t iFLOwWW ( ?0 ) 
CUUlVALrHCtlf (1) ,U(1) >» (FLOWNWU) eFLOWNEU) > . ( FLOWWW ( 1 ) , - 

1 I L UwCC < 1 > ) * < UirMW (l)*UlFNE(l))t(DlFww(l)*DlFEE(l)) 

CUMRON/COMlj/ 

AK,AURCONfUlG,CC||LCK,tMIX.DATA($) ,Dp f ELl*tL2fLMA.EMF.EMUREFi 
t PS r .CURAT » CyJALL » F'LOU ,FLOC . FLOWIN .FtOWST , FLOWUP .FSTOIC » 

F STUIM.FljU « I UC , HFU.Ihy , INC « INERT , IPLrs, IPREF , IPRINT . 1SNIP » 
ISwCCP. IX . 1XMPN. IXPREP.IXP1. IXU. IXUPi , IXW * I X1NY , IX AN YU « 
lxitin. IX2Mru.IX2NY2.iYF, IYFM1»IYFUEL.IYL» IYLM 1 .IYLP 1 , iymon, 

I Yi’REF . lYWtlYUMl . I YWP1 ,:JEMU , JFM . JFUC , JH » JLAST , JP, JPP, JRltO, 

JSl , JS2. JTEM, JU. JV .KASE.KINPRl .KLT.KRAD.KRHOHU.KSWLEP.KTEST. 
LAHpHI , LSWCEp , NSOLVE .NTOMA, MTMAX ,NTR AV .NUMCQL .NX .NXMAX , NXM1 » 
NXM2, NX YG. NX rP. NX YU. NX Yv. NY, NYMAX.NYM1.NYM2.0XB.0XC.P JAY, 
PRLLxP .PRESS ,I>ELAXP »RF .RFSTM.RSCHEK .RSMAx «R1I .H10.R2I.R20. 

STO ICH, Tfl , TC , TINY , TMAX. TMIN.UO.UC.WMIX 

01 MENS I UN D ( 20 ) 


CHAPTER 111 1111 111 


PRELIMINARIES 


11111111111 


DEFINE ARITHMETIC FUNCTION FOR COMBINING 

APPROPRIATELY CONVECTION AMO DIFFUSION CONTRIBUTIONS 

cuuuirtuirr .convfsamaxhuiff. uiff*conv> 

JPIIlrLPIII 
1F( JPHI. 

IF (JPHI, 

If (JPHI. 

II (JPHI. 

GO TO 50 


CFOOODlO 
CF 000020 
.-CFCIU0030 

cfooooao 
CF 000050 
CFOOOOfeO 
CF000070 
CFOOOOOO 
CF000090 
CF000100 
CFOOOllO 
CF000120 
CF000130 
CF0OO1HO 
CF000150 
CF000160 
CF000170 
cFoooiao 
CF000190 

CF000200 
CF000210 
CF000220 
CF000230 
CF0002A0 
CF000250 
CF000260 
CF000270 
CF000280 
CFO00290 
CF000300 
CF000310 
CF0003Z0 
CF000330 
CF0003A0 
CFQ00350 
.-CF 00 0360 
1CF000370 
.-CF000300 
Cf 000390 
Cf 000400 
CF000410 
CF000420 
CF 0004 30 
CF000440 


tU.O) GO TO 

10 

CF000450 

EO.JU) GO TO 

20 

CF 000460 

fc'N.JV) GD TO 

30 

CF000470 

EU. JPP) GO 10 

40 

CF0004Q0 



C F 0 0 0 4 9 O' 



CF000500 

DIFFUSION T 

.CRMS'. FOR CONTINUITY CELLS 

CF000510 


CF Q00520 
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F 



, ? i i f m 

1 jsdk . i t t i 


10 00 lbO IY=2.NYPU 
1=1Y+IX1MY 
1V) = 1 -NY 
IL=1 f NY 
IUkisIW-NV 
ILL=IE+NY 

OH N(1V) = 0.5*(CMUI 1+1MLMU(I> )*ANOUY(I ) 

II Ux.EO.?) GO TO 153 

1)IFW( IY )=0.5* (CMU( IW)+tWU( I ))*ACDOXUW> 

II llllC.LU.il GO TO 15U 

Oil WW(IY 1=0.5* (F.MUUWW)fEHUUW))*AEUUX(lWW> 

Oil N\vUY|=0.b*(KMUUW*i»*LKU( 1W) UANODYIIW) 

GO TO 154 
153 Oil W(IY>=0.0 
15'* If (IX.L0.NXM1) GO TO ISO 

01FE ( I Y I = 0 • 5* ( t MU ( I ) +LMU ( IE) >*AEUDXU I 
IF(INC.LQ.-I) GO TO 150 

Oil ELUY)=0.5*(LMU<IE)+LMU(IEC) )*AEDOXUL) 
OITNC(IY)=O.S*(CMUUE*1)+CMU(IE) )*ANOOY(IE) 

GO Tu 150 
156 OlKlIYIsO.O 
150 CONTINUE 

0 1 F N ( I Y L ) = 0 . 0 
Oil NE(1YL)=0.0 
01FN l NYM1 ) -0 . Q 
Dll NEUirMl >=0.0 

hltuiin 



CHAPTER 2 a 2 2 2 2 2 COEFFICIENTS FOR U-EUUATION 

c .... — 

20 ’ IFUilC.EGl.-l) GO TO 209 

CN=FLOwM ( I YFMl ) +FLOWNL ( IYF Ml > 

IF < IXU.FQ.2) C(l=CN+FLOWN( IYFM1 1 
irUxU.L0.NXM2) CN=CN+FL0WNE(IYFM1) 

AN ( I YFM 1 ) =0 . 5 *AMAX 1 ( 0 . 0 . -CN ) 

C 

DO 26 I Y = I YF » 1 YL 
0 1 i= 0 1 F N C ( 1 Y I ■* 0 1 F N ( I Y ) 
ne =u IFLL u Y 1+0 IFE( IT) 

DW=0IFw(1y)+UIFE(1Y) 

CS-CN 

CN=l-LOWHL ( I Y ) +FLOWN (IT) 

CL=r LOWLt ( I Y ) +F LOWt ( I Y > 

CVt=FLOWN( IY )+FLOWLUY ) 

IF UXU.HC.NXM2) GO TO 207 

Cll=C|i+rLowNUIY) 

nH= 0 H+ 0 IHlE(IY) 

cE=rLowrcuY)+i loheluy) 

oc=u.q 

00 TO 206 

287 If UXU.Nn.2) 00 TO 20b 
Uw=0.0 


CF000530 
CF000540 
CF000550 
CF000560 
CF000570 
CF000580 
CF000590 
CF000600 
CF 000610 
CFO 00620 
CFQ00630 
CF0006<* 0 
CF000650 
CF000660 
CF000670 
CF000680 
CFOOO69O 
CF000700 
CF000710 
CF000720 
CF000730 
CF000740 
CF000750 
CF 000760 
CF000770 
CFQ00780 
CF000790 

- — CFOOOQOO 

2222222 2CF000010 

CF000020 

CF000030 
CF000840 
CF0OO85O 
CF000860 
CF 000070 
CF000880 
cFoooayo 
CF000900 
CF000910 
CF000920 
CF000930 
CF 0009** 0 
CFQ00950 
CF000960 
CF0Q0970 
CF000980 
CF000990 
CFOUlOOO 
CF001010 
CFQ01020 
CF001030 

cfooiomo 
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cw=< Luwn ( i y » -» < iy> 
ci)=tlj+f LOv.lltlY > 
uu=mj+oini( i r i 

c - -- cohuiwiwg o ir fiisiou aim convection conthihutions 

HOC , AM Iy>=AJI( 1Y-1 ) f 0 .s*cs 

Ail(lY)=0.‘j*COllUTF(UN,-CH> 

AUlY)=U.i>*CD(|inr»Ot,-LL) 

26 Av,( Ir)=0.5*CU||t)IMUW, Cw) 

GO Tu ?99 

C 

?oy cii=Flowuw( iyi Mi»+r'LOwH(iYr mu 
IMIXU.LU.2) CI)=Cn+FLOwl<lwmr?U> 

If (IXU.LU.HXH2) CH=CN+FLOW(J( IYFMU 
AIK I VFMl )=0.b*AMAxl(0.0%“CN> 

C 

DO 27 IY=IYF,IYL 
DH=Dlf‘HW ( I Y ) 4D1FU ( I Y > 

OL=UIFt ( I Y > +DIFW < I Y J 
0W=D1FW(IY)+DH WWCIY) 

CSsC'M 

Cfi=FLOWMW ( 1 Y ) +FLOWN ( I Y ) 

=FLOWt:( IY)+FI.OWW( IY) 
t‘W = F LQWWW ( I Y ) tF-LO'WW ( I Y ) 
ifilXU.ME.HXM2) GO (0 297 
Cl'J=C|j+FLOHH ( X Y ) 

DU-UM>OiFMUY) 

Ct=FLOWr< IY)+FLUWC( 1Y> 

DE=0 . 0 
GO TO 296 

297 II ( I XU. HE, 2) GO TO 296 
DW-0.O 

Clv=r : LOWWU( ITl+rLOWWWUY) 

CU=ClJ*( LOwNvHlY) 

DH=UU*OIt IJW(IY) 

296 AS(lY)=AH(IY-l)40.S*CS 

AIJ ( 1 Y ) = 0 . b *C0l>j01f (UM.-CN) 

At< IY)=n.b*COHDIF (UL.-CL) 

27 AM 1Y l=(l.b*COrjnir<OW, CW) 

c 

299 CALL SOURCE (UU) 

c 

C IYL IJOUHDAKY 

C 

II (lYL.NL.UYMl) go TO 1070 
CALL WALL(MY , STFRM iSTEKHU 0 , JPItl) 

SHIlYL)=.S|»UYL)-STEHMi 
1070 If (KTEST . GT.2 I CALL TLST(Jl) 

C 

IY) L=IYI +1 YL 
IS-IYFM1+ [XlUYll 

A ( I Yf Ml ) =0 , 0 . ... 

(1 ( I Yf'Ml )=U ( IS > 


CF001050 
CF001060 
CF001070 
CFOOIOOO 
CF001090 
CF001100 
CFOOIUO 
CF001120 
CF 00.1130 
CF00U40 
CF00U50 
CFOOUfiO 
CF0Q1170 
CFOOllfiO 
CF001190 
CF 001200 
CF001210 
CF001220 
CF001230 
CF001240 
CF001250 
CF001260 
CF001270 
CF00l2f)0 
CF001290 
CF001300 
CF001310 
CF001320 
CF001330 
CF001340 
CF'0Ol3bO 
CF 001360 
CFOO 1 370 
CF001380 
CF001390 
CF001400 
CF001410 
CF001420 
CF001430 
CF001440 
CF001450 
CF001460 
CF001470 
CF001400 
CF001490 
CF001500 
CF001510 
CF 001520 
CF001530 
CF001540 
CF0O1550 
CFOO 1560 


DO 2 90 IY=1YF.IYL 
IY?U = 1V-1 
I=1Y+IX1NYU 
1P=IYH1UX2NYU 
IL»'=rr>+NYM2 


IL=IfNY 

IW=I-NV 

C(IY)=SU( m+AC <lY>*U(lE>+rtW<IY)*U<IW> 

UrlV)=AElIY)+AW< IY>+Ai»UY»+AfJ<IY>-SP<IY> 
CSNIP<1Y>=C(IY>-AREAEUV)»CPIIP)-P(ICP> > 

nsifiiM iy»=uhy) 

ASN1P( IY )=AN( IY ) 

BSNIP(IY)=AS<IY) 

UUUY)=AKEAElIY)/'U(IY) 

TLKM=D(IY)-AS(IY)*AUYM1) 

A ( IV ) =AN ( I Y ) /TERM 

290 13 ( IY) = (C< I Y >+Q(lYMl >*AS< IY > )/TERM 
If UvSHIP.F.O.O) RETURN 

SUH=0.0 

DO 291 IY=IYF,IYL 

If <SP(IY> .Lr.- 1 .OE 08 ) GO TO 291 

1=IY+IX1NYU 

RS=D(1Y)*U(I )-C( IY)-ANCIY)*U(I>1)-AS(IY)*U( I - 1 » 

SUM=SUH+»iS 

291 CONTINUE 

RSLINE U XU . JPHI ) =SUM/RSREF < JPHI ) 

AI<SL (■ IXU » JPHI ) =ABS (HSLINC ( IXU t JPHI ) > 

DO 292 1DASN=IYF.ITL 

IY-1YFL-IDASII 

1=1 Y+IX1NYU 

292 U<I)=A(IY)*U<I>1)+I3«in 
RETURN 

c 

CHAPTER 3334533 COEFFICIENTS FOR V-EOUATION 333333 

C-~ 


30 CN=FL0HN(IYFM1> 

AN < I YFM1 > =AMAX1 < 0 . 0 » -CN ) 
CN=CN*CN 

DO 3 S 1 Y=I YF f I YLM1 
IYP1=IY+1 

DIJ=DIFN ( I Y ) +DIFN ( I YP1 ) 
DE=DIFE(IY)+DIFE( IYP1) 
Dw=UIFW(IY>+DIFW(IYP1I 
CS=CN 

CII=FLOWlJ ( 1 Y ) +FLOWN ( 1-YP1 ) 
CE=FLOWL( iyj+floweuypd 
CW=FlOWW( I Y ) +FLOWW < I YP1 ) 
IF UY.NE.NYH2) GO T0307 
CE=CE+FL0WEUYP1 ) 
CW=CW-*FL0WW(IYP1) 
DE=UttDIFF.( IYP1 ) 
UW=DW+Uir;v( IYP1) 
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CF0U1570 
CFQ015B0 
CF0O159O 
CF001600 
CF001610 
CF001620 
CF OOI63O 
CFOOI64O 
CF001650 
CF001660 
CFOOI67O 
CF001600 
CF001690 
CF001700 
CF001710 
CF001720 
CF001730 
CFO 017^0 
CF001750 
CF 001760 
CF001770 
CFO01780 
CF001790 
CF001800 
CFdoiOiO 
CF001820 
CF001830 
CF001840 
CFOOI85O 
CF001860 
CF001870 
CF001880 
CFOOI89O 
CF001900 
CF001910 
CF001920 
CF001930 
CF001940 
CF001950 
CF001960 
CF001970 
CF001980 
CF00199C 
CF0C2000 
CF002010 
CF002020 
CF00203Q 
CF002040 
CF002050 
CF 002060 
CF002070 
CF0020Q0 


o n n 



ClJ=F LUNIK I YPl J+rLOWHI IYI'1 » 

CF 002090 


Oil -0.0 

CF 002100 


GO 10 506 

CF002110 

367 

II (lr.IIL.2l GO 10 36b 

CF002120 


CL=Ce>FL0viL(iY) 

CF002130 


CW=CW+FL0WW(IY> 

CF002140 


ot=ui-:+uirr:UY) 

CF002150 


ON=Uw+OirvJ(lY> 

CF002160 



CF002170 

506 

AS(IY)=AIJ( IY-1)+CS*0.5 

CF002180 


AIJ(lY)= 0 . 5 *COflL)ir IUW.-CN) 

CF002190 


AC (lY)=C.5*CONUlF(Dt,-Ct J 

CF002200 

56 

AW ( 1 Y ) = 0 • 'j* CONOIF ( UW » CW> 

CF002210 


CALL SOURCE IJV) 

CF002220 

CF002230 


I XL BOUNDARY 

CF002240 

CF002250 


IFUx.Nt.fJXMl) GO FO 2054 

CF002260 


DO 2050 I Y=1 YF » I YLM1 

CF002270 


CALL WALL(NX,STF;RM*STLRM1. IY,JPHU 

CF002200 

2050 

Sl’( I Y ) =SP (IV) -STERM1 

CF002290 

2054 

IF (KTLST.GT.2) CALL TLST(31) 

CF002300 


IYFL=IYF+I YLM1 

CF002310 


IS = IYFMl + IXltm 

CF002320 


A 1 1 Yl'Ml ) = 0 . 0 

CF002330 


B ( 1 YFM1 ) = \/( IS ) 

CF002340 


DV< IYFM1 )=0.0 

CF002350 


DO 390 IY = 1 YF « I YLM1 

CF002360 


IYH1=IY-1 

CF002370 


I=IV+IXlMYl 

CF002360 


It=I+NYfU 

CF002390 


IW=I-NYM1 

CF002400 


l/\=lY + miJY 

CF002410 


Cl IY>=SU( tn+Afl IY>*V(1L)+AW(IYI*VI1W> 

CF002420 


U( IYI=AF 1 IY l + AWl IY> + AS<IY)+AIKIY)-SP( IY) 

CF002430 


UV(IY)=AREAM(IA)/D(IY» 

CF002440 


TLRM=D( IY)-AS( IY»*A( IYIU) 

CF002450 


A(IY)=AN(IY>/TCRM 

CF002460 

390 

U ( I Y ) = < C ( I Y )+l? ( I YMl I *AS( I Y ) ) / TERM 

CF002470 


SUM=0.0 

CF0024Q0 


DO 391 I Y=I YF • I YLRl 

CF002490 


IF (SP< IY) ! 1 .-1.0E08) GO TO 391 

CF002500 


I = IY + IX1|IY1 

CF 002510 


RS=D(IY) ♦>/( 1 1 -C ( I Y ) "AN( 1 Y ) * V ( 14-1 ) - AS ( I Y ) *V( I -1 ) 

CF002520 


SUM=SUM+R3 

CF002530 

391 

CONI 1IIUL 

CF002540 


RSLIIIEIIX.JPHI )=SUM/KSRLFI JPIII > 

CF002550 


ARSLl I X i JPl 11 ) =aBS (HSL 1NL ( IX* JPlfl ) > 

CF0025&0 


DO 3y2 IDASU=IYr.IYLMi 

CF002570 


lY-lYFL-IOASII 

CF (I025fl0 


1 = 1 Y HX1NY1 

CF002590 

392 

V ( I l=A( 1 Y ) »V( 1+1 1 +UI 1 Y ) 

CF002G00 
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J * 1 wp quality 


chapter 

c 


HttUKlJ 

*4 4 4 '4 '4 COCFTieiCNTS FOR FRESStJRC-COHRECTlON LOUATION 


*4 0 


<41 


4 90 


00 *4 h lV = Ivr«IYL 

IslXlNY+IY 

111=1 + 1 

1L=1+HY 

IS=I-1 

IW=1-NY 

lYMlslY-1 

RhOCr.LsRHO(lN) 

II (FLOWIHIYI.GE .0.0) RH0CEL=R||0 ( I ) 

AN ( I Y ) =RllOCtLf ARCaN UI*0V(IY) 

RHOC(L=KHaill 

if irLowm iymi>.gl.o.o> rhoccl=riio(1s> 

AS< IY)=RH0CEL*ARLAN4 IS)*0V4IYM1> 

IF 4INC.LO.-l) GO TO 41 


AW <IY> =0.0 
RHUCCL=RflO(I»:) 

If (FLOWMIYI .GC.0.0) 


RH0CEL=RH04I) 


A4L U Y I =RI |()CEL*ARLAE 1 1 Y I *DU ( I Y ) 
GO TO 46 


AE(lY)=0.fl 
RfiOCEL=RIIU ( I ) 

IF 4I LOWW4 IY ) .GE.0.0) 


KII0CEL=Kll0 4IWf 


Awl 4 IY )=RI luCCL* ARE aH I ¥ > *OU( IY f 


CONTINUE 


CALL SOURCE 4 JPP) 

IF 4KTCST.GT.2f CALL TEST(31» 

IYFLsI YF+IYL 
A ( 1 YFM1 ) =1) . 0 
o < i ri*MjL > =o c o 
PP < I YLP1 ) =0 » 0 
00 490 IY = IYP,IYL 
IYiMlsJY-1 
C 4 i Y ) =SU 4 1 Y > 

D ( 1 Y ) *AC ( I Y > 4- AW 4 1 Y ) + AS 4 1 Y I +AH < I Y ) -SP 4 1 Y ) 

TLKM=DtIY)-AS(lY)+A( IYM1) 

AtlYfsANUYf/TCRM 
B 4 1 Y I “ 4 C 4 1 Y f+B 4 1 YMl ) *AS 4 1 Y » ) / TERM 
00 <102 IOASH=IYFiIYL 
1Y=I YFL-IOASH 


CF002610 

CF002620 

4 4CF002630 

CF002640 

Crn 02650 

CF002G60 
CF 002670 
CF002600 
CF002690 
Cf 002700 
CF002710 
CF 002720 
CF002730 
CF002740 
CF002750 
CF002760 
CF002770 
.CF002760 
CF 0027^0 
CF 002fl0b 
CFOO201O 
CF002020 
CFOO203O 
CF002040 
CFOO205O 
CFOO206O 
CFOO207O 
CF002800 
CFOO209O 
CF002900 
CF002910 
CF002920 
CF002930 
CFOO2940 
CF002950 
CF002960 
CF002970 
CFOO290O 
CF002990 
CFQ030Q0 
CF003010 
CF003020 
CF003030 
CF0O3O4O 
CF 0 03050 
CF003060 
CP003070 
CFOO3O0O 
CP003090 
CF 003100 
CF003110 
CFQO3120 
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49? PfM 1Y)-At IYln»l»tmiHii.<iY> 

I<1 I URN 

C — 

CHAPTER b b 5 5 Pill LUUAIIOU ft 5 5 5 r ) 5 ft 5 

c - 

50 RPHLfT = l . /1'Kfc.n <JP'U> 

AN I I YFM1 IsAMAxi I 0 • 0 . -FLOWN I I YPM1 ) ) 

DO bf> IY=IYF,IYL 

C COMBINING UII FUSION AfJN CONVECTION CONTRIBUTIONS 

AS(1YI=AN( I Y -1 ) •♦FLOWN ( I Y-l ) 

AN ( I Y I “LOI|UlF (l)IFIJ 1 1 Y > *RPRF.Ff < -FLOWN ( I Y ) I 
ACIIY)=COUUlF(UIReUY>*MPREI : Fi-fLOwE(IYM 
56 A W < I Y } SCO? |U 1 F ( U I F W( 1 Y ) +RPREF F . FLOWWUYM 
C 

call SOUKCCI JPIII > 

c 

II ( K TEST « OT • 2 ) CALL TLST(3l) 

C 

IYI L = 1 YF + TYL 

IC0NST=1XUY( Jp|tt )+UO(U(JPHI) 

1S = IYP>'<14 ICONST 
AtlYf MI)=u.f> 

HUY* MX ) =$* I IS) 

DO 590 1Y = IYIVIYL 

iymi=iy-i 

I = i YflCOIlST 

1C=I4IJY 

IW-I-NY 

C(lY)=SUl IYUAf < IY IE>+AW( IY)*F<1W» 

0< IY*=AE( IY)+AW< 1YHAS(IY)+AMUY>-SP( IY» 

TF.RNsU ( 1 Y > - AS (I Y ) *A ( I YM1 ) 

A«1Y)=AIHIY»/TCPK 

590 0 < 1 Y )« t:C( I Y I +B ( I YM1 > * AS < I Y > ) / TERM 
SUM=0.0 

DO 591 IY=m',IYL 

IF ( SP < I Y > »i LT . - 1 . 0LIU1 ) GO TO 591 

1 = 1 Y f ICONS T 

RS=U ( I Y ) *T ( I ) -C. 1 1 Y ) -AN 4 1 Y > *F ( 1+1 ) - AS ( I y > *F < I -1 ) 

SUri-SUM+RS 

591 CONTINUE 

KSLIIlCt lX,JPHl)=SIJM/RSRfc.F I JPIII > 

ARSL( IX, JpHI )=AHS<KSHNL< IX. JPHI ) ) 

1)0 59?. IDASll=IYF. 1 YL 
1 Y = I YFL-1UASI! 

I =1 Y + ICONS I 

592 F<n=AUY>*f’«I*l> +13 < I Y ) 

Rl.rUKM 

EMU 


CF0031JO 
CFOO^mO 
CF003150 
CF003160 
CF 005170 
CFOOJUOO 
CF003190 
CF003200 
CF003210 
CF 003220 
CF003230 
CF0O324O 
CF003250 
CF003260 
CFQ03270 
CF003200 
CF003290 
CF 003300 
CFQ03310 
CF 003320 
CFO 03330 
C F 0 0 3 3 4 0 
CF 003350 
CF003360 
CF003370 
cro053fl0 
CF003390 
CF003400 
CF003410 
CF 003420 
CF003430 
CF003440 
CF003450 
CF003460 
CF003470 
CF003450 
CF003490 
CF 003500 
CFO 03510 
CF003520 
CF003530 
CFO 0354 0 
CF003550 
CF 0 03560 
CF003570 
Cr0035ij0 
CF003590 
CF 003600 
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iRSXG ( 25 ) ,RSXU<25> 


Sl'URi'UTltli TLSt(KbUfO) 

ClW G '-A/ l)< 4C(i ) • V ( 475 ) . II ( 5I!0 ) ,FM< snn ) ,FUE(r>OOT .rS(500.iri> i 

l n v (,'l) > .Ti MlbftO) *;RIIO(5'10» .EMUUinO ) . 

1 l XO < > .t XJ( ?S> .KOUNU25) »KUXG(2r>) .RpXUlPSl 

? SlOKct » SAG (75) *SXU(25 > . X ( ?5 ) , XU ( 2Ti» , 

3 A(2!>) , C • 29 ) . nu< ?0 ) « Al<LAL ( 20 ) . AS( 20 ) , ASNIPX 20 ) , AW < 20 ) ,13 ( PO ) , 

4 I StiriM -III ,C<?(') , CSMIP ( 20 ) .UIFE<20> ,nirLC<20> ,UIFN(20> , 

5 I IFf'E ( <t 0 ) » JlF*V' 1 2U ) , DSIJ1P ( .?0 ) % OU( 20 ) * HV ( 20 ) . UYG ( 20 ) , IlYV ( ?0 ) « 

G I LO, L I . (I l .1 LOt.F:i:(2U) .FLOWN (20) .FLOWNr (20) »FLOWW(20) «H(20 > t 

7 liUYC- (2>:) .Rnr\/ ( ?0 ) tRSYo(20> »PSYV ( 20 ) , RV ( 20 > »RVCB ( 20 ) »R VSQ ( 20 ) » 
A SFMPiU .S.H20J ,SYG<20> .SYV(20> , Y ( 20 ) , YV ( 20 ) » AEDOX ( 500 ) . 

9 ANDLY ( ‘*0!! ) . ARF. AN ( 500 ) ,VOL(500>. 

y aR-SL( 2*.T.S> *PPFFri25) ,PRL<25) , CRT (25) ,RSLINE<25»25> . 

1 1 CW ( 2 5 ) . t LAS I (2b ) . I MON ( 25) . 1XMY(25) . I7F.RO(25) ,S<SGLVE<25) , 

2 J:SI'( F( <r b ) t RS-SUM ( 25 ) ♦ TITLE* 25 ) 

niMCIISIcN DlFMH (20 ) ,DIFWW(20> ,F ( 11C09 > .FLOWHW ( 20 ) .FLOWWW(PO) 
fc (,'UI \U\Lt- MfL < F d ) . U ( 1 > > . ( FLOWNI-I ( 1 ) , FLOWNC ( 1 ) ) . ( FLOWWW ( 1 > . 

.1 I LO.mI- E ( 1 > ) , < niril'.Hl) .UIFNEd ) > . < UIFWW( 1 ) ,UIFEE< 1 ) ) 

L OH’I'JI J/CUMN/ 

1 AK . APR! OH*01R .CCIIECK.LNIX .DATA<6) , Dp ,FLl . EL2 « EI-1A • EMp , EMOrEF, 

2 F PS? ,E -K AT .f.WALL .FLOB .TLOC .FLOWIN . FLOWST .FLOWUP .FSTOIC . 

.5 J- STii LM .THD , FUC ,MFU »HW , INC , INCRT , IPLRs • IPREF • I PRINT • I SNIP. 

4 i SWEEP , lx» IXMON-. IXPREF, IXP1. IXU . IXUp i , I XW * IX1NY » IX IN YU » 

5 IXlHYl . IY2UYH. IX2NY2.IYF.IYFM1 iIYFUfl.IYL,IYLM 1.IYLR1.IYMON. 
f> J YFPrr. I YlM I YWH1. 1 YWPi.JEMU.JFM, JFUE, JH.JLAST.jp, JPP.JRHO. 

7 JS1 « JS2 , JTEH * Jll » JV ,KASL ,K INPRI , KLT »KR AD » KRHOMU .KSWCEP .KTFST, 
fl LAIIPHI , L, SWEEP . NSOLVE , NT, DMA , MTMAX , NTRAV , NUMCOL , NX . NXMAX , NXMl , 

9 wXI"l2 , N > YO , NX Yl 1 , 1 IX YU , NXYV , NY , NYMAX . NVMl ,NYM2. OXB , OXC , p JA Y . 

* I'ECFYP.PSESS.prLAXP.KF.RrSTr, RSCHEK. rsMAX.RII .R10.R2I .R20. 

1 STUIC.M «TFi . TC ,T IIIY »TMAX .TMIN.UO ,UC , WMIX 


I'RINT-UUTS FOR LEVEL 1 ONWARDS 1 1 

GEOMETRICAL QUANTITEs RELATEn TO 


CHAPTER 1 1 i 1 

C 

c 

If (KJOTO.NL. 11) 00 TO bOOO 
c 

ViHiTi; (6,21-0) KTFST 

200 niRMA r ( /i f . 2faiini AGNOsiNri priht-out LEvrL.i4.2X.aodH--)) 
WR1TL (6.2‘U) (K.X(K) ,()Xb(K)-»SXG'(K) iKsi.UX) 


TE000010 
TEnOOOpO 
TEOOOOaO 
TE000040 
, TE0000«,0 

TCOOOOfiO 
TE000070 
TEOOOOnO 
TE000090 
TE00010Q 
TE00011 0 
TE000120 
TEOOOI.XO 
TE000140 
TEOOOlsO 
TEOOOlfiO 
TE000170 
TEOOOlnO 
TEOOOlgO 
TL000200 
TE000210 
TE000220 
TE000230 
TEn00240 
TE000250 
TE0002SO 
TE000270 
TE0OO2SO 
TEnoopyo 
TE 00 0300 
TEn003l 0 
;_--TE0003?0 
1 TE000330 

TEQ00340 
GRIDTE0003S0 
TElT003ft0 
TE000370 
TE0003SO 
TE000390 
TE000400 


am rjRNat (/i v ,2iitx,ix.ioii x.ioh hxg.ioh sxg/ 

1 ( 1 X , J 2 , ) X , 1 P 3 E 1 0 • 2 ) ) 

WRIT! ( fa ,2<S2) (K.XIMK) ,UXU(K) ,SXU(K) »|< = 1,NX) 

202 ruRf‘'AT(/l/.2HTX.,lX,10ll XU.10H DXU.10II sxu 

l / ( 1 X , 1 2 , 1 ' , 1 P 5F 1 0 . 2 ) ) 

WI«ITMfc.2*l3) ( K , Y < K ) , K < K > ,|)YG(K) ,SYG(|<) , AREAE ( K ) ,K=1 ,MY > 

203 FORMAT (/lx .2IIIY, IX. 1011 Y.10N R.10H nYG ♦ 

) 1 01 ! SYG.lOII ARLAE/ ( IX , £2 , IX , 1P5E10.2 ) ) 

WI-ITF (6.2 i4) (K.YV(K).RV(K) . R VCD ( K ) .DYV ( K ) . SYV < K ) »K=1 . |\IY ) 

704 FORMA r ( /lv .PIlTY . IX « 1011 YV.10H RV.lOH RVCB, 

1 ion nyv.iOH sy v/ 

?dX«I7,lX,lPbFlQ.?H ■ 


TE00041 0 
TE0004?0 
TE000430 
TE000440 
TE0004SO 
TE0004GO 
TE000470 
TE0004A0 
TE000490 
TE000500 
TE00051 0 
TL0005PO 
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h l ~ I 

K« =M (ill} 1 1) « 1 U ) 

?on vii-iTt ( .» 'O r i) tK,K=i<i,txjn 

PCS fuRll.A r I /I • , bl UUUM I//4 X, oil I X=, 101 10/lX, PI 11 Y> 

UU IY-1UIY 

Kw- 1 Y + 1 >' J - 1 ) ♦)»Y 
Ki ( = I HI 1 2-1) *UY 

?9b >.i* !T| (r,,p -7) | Y, (AHLANu',) ,I<“KJ ♦ K4 ,NY ) 

? 17 ) 1 1 x * l <* * *♦ x • lpiomo • ?, > 

II (f.e.l vl.liX) KMUKIl 

K. =Mi„in(|<M + Hl,l.,0 
(»0 Tij ?DU 
in, I UK: | 

c — variaiue ini oiymatiqm 

jo on ii go tu uuoo 

c 

VJlvITl (6, jnO) 

300 ruRr'l/vr<//iX«3l}nnLlCUULin VARIAQLL iNRlRilATlQN'PUUM-)'/) 

Wl iruG.J tl) MSOUVE* ITltLUK) ,K=1 tNSOLVE > 

301 FufilliV . UINSULVE = « 14 . IX * 5 < l|l- > * ll)< A4 * UImIX ) ) 

IMKSUL' L ( JlMM .f O.O) GU TO 3tt 
VjKl T i, ( A • 3 02 1 

3(1.? ri'MMurUX.i<»X»i(l»|IFUESGUUC CORRECTION CONATION 1? ALSO SOLWCD.) 
30 WRlTl ( 6 » 3 ii 3 ) 

3Q3 I t.ivMM {/lv ,411 J ,4HJHIU,aH KSQLVE, 
l I'M • I<L|.0.GM ILAS1 »UII IEW) 
ifd’.iri (6,3,14) (K.TITLEIK) ,KSOLVC(K> , 

1 1 *!r id m-. ) , 1 LAST ( K > » l Ew ( |\ > . «=1 . JLAST I 
304 | uKMAT (1X.12,?X.A4,4I0) 

lu: thru 

c. , — -i- — 1--- .----I. — .. 1 

CHAPTER 2 ? 2 2 2 PH IMT-OUTS fOU LEVEL 2 OU'wAROS 2 2 2 

r 

C --MAM-L 1 ' ..LLtlClTIES Alll) THEIR RESIDUAL SOURCES ON TOMA LINE 

0000 if tr\ .UlO.NII.pl) GO TU 10000 
C 

II (K l I. SI .1.1 .2) GO TO 004 

IT (LMRI'I .L ). t ) V.RITE(b.fl03 ) 1 X ,KOUNT ( J X ) 

II ( LAMIA U .L'i . P .AMI). 1 1 XU. Eu.MXUl «OlU IX-t) >F.U»1 ) ') WRITL ( 6 « 003) 

1 lXtKUIJ'n (IX) 

903 J'uKMai (/lx *53(111-) *411 IX=,I2,12H* KOIINT ( IX ) = . 13 ) 

004 SrUQuL-lIU 

II ILAUUnl.Gr., IV ) SYMIJULalll 
luON.sr=JX iY<LAI,PIII ) + l2U,‘(j(LAHPIII ) 

K)=lYrU)-f ILUIIST 
Ki - tYLPJ -TlCn-lST 

11 ILA".f>i l.t. . Jw ) K2=IYL+IL0M,ST i 

II CLAUI'lil.LU.dUl GQ TO 005 

viKiri tb.AlO) IX.SYWUOL. I 11 LE ( LARPIII ) • (I (K).K-K1,K2) 

II UAi.lMlI .01 .UStlLvE) GO TU 006 

000 I y .3111, Y=, 12.111. < 1> , A 1 , 1 111 VAUJTS OF ,A4 « 1H*» IP5U0.P. 


11,000530 

TE000540 

TL0005 r >0 

TLoOOhsO 

TL000570 

TE0005AO 

TE000590 

TE000600 

TE000610 

TE0006P0 

TL000630 

TEOQQ640 

TEOOOASO 
TE0006A0 
TL000670 
TE0006AQ 
TE000G90 
TE000700 
TE000710 
TL0007?0 
TE00073O 
TE0007U0 
TE000750 
TE000760 
TE000770 
TL0007nO 
TE000790 
TEOOOSOO 
TEOOOat 0 
TLOOOOPO 
TE000830 
TEOOOOUO 
TE000050 
TEOOOOAO 
TE000070 
TLOOOBRO 
TE000B90 
TE00Q90D 
TE00091 0 
TLOQQ9pO 
TE000930 
TE000940 
TL0OO9S0 
TL000960 
TEOOQ970 
IE0009AO 
TEO 00990 
TEQ01000 
TEOOlOtO 
TEOOIOPO 
TLQ01Q30 
TL001040 


ORMNAI, l'A(!E is 

oi' mm QUAury 


\ M/ix.wix.ii'nr lu.ad Teoaiono 

win TTTuruAm‘un.iy«nsLiNE(tx,LAi)r'Hn teooioao 

W> T«J ui-h Tt I) 01070 

r\ n n Will' tfiviv i01IXl»»SYMUOUi1ltiClUAUl>lll)»(nK) »RsRi .K{>) teooioao 

viUVt twivani n MEAninii) iixu.RSLJNEimiaAUiMin tedoiooo 

mu ci urtuui Tuiouoo 

ftOI rt'RUA 1 (lx * O'lllAI (UJSRAIG SUM OP RESIDUAl SOURCES UP . AH *711 AT TX*. TEQOlliO 
» U.'Ol 1 x. lux, U'llO.m TLoOllPO 

fUTUUM TM101U8 

O— .UlW‘rtr S8uRK*CQWU ttON QUANTITIES TEOOUuO 

1UOOO XI (KnOIO.NE.PRI (.0 TO ilUOO TLOOUPO 

c TUlOiiAO 

UhlTt U.ltWn tXU,n.OWUP«TU)V i J5T TE00U70 

IQAO 1 v RtlAl (/ W. ■snivel?., 311. .... iTllFUOWUlN .YltPlOWST, , TLOOUAO 

111 aid.,') TCoOHoO 

MsXWMHlXiHYU TE001200 

Ki'*i VUt’i + rXXUYM TLOOlPl 0 

Ul-lTi Ui. liUU I tlHKi »K=M.KPJ TLOQIPPO 

iom rr-KKM « uwiiHuu'viimrm iiuYFMuiYiPiiapstiO.a. Ttoamo 

x stm. UNi’ipstio.an TEooiauo 

miUMt ' teoousO 

P'WCfiRRFCTlON QlMNTiTTExS TEoOlSftO 

i 1000 II (*.Ux(no.Ml .a3 1 00 TU lSOOU teooipto 

o TEOOJPnQ 

WUT1 (F.ltiUS) IX.ESUNEUx.vlPP) TEOOlPsU 

1003 f oKMf T ( / 1 . *1 ?||A1 6U0RAIE SUM tip ERROR MASS SOURETvS AT IXK.I3. TtQOUOO 

t Wt lV.l<*X» IPI‘1Q.8| TL001310 

wun (u, ilium ix. (PP(K) ,KsIY| ,1YU TE0013P0 

J yy|i | I RMAT l / iv. 5illX». I2.2X.1811PP t IYF TO lYll ,!SX. U'SElO.?, TE.O0.Ux0 

.1 M/U.; MX.IPW lO.ai) TEOQU'lQ 

KI'XvPMT HXNY (xRll TEOOUSO 

K^sX YEP1 f lXUY U l U) YEOUUfvO 

\ll Ilf l o.l lUt) TXU . (U IK) .KcKl.RJl 1 TEO0U7Q 

10*51 TOURAl UX.JolIXe.ia.SXtamiPP C. UUYf Mi TO IYLP1 ) .lP'otlO.P, TtnOunO 

1 M/lX.v'Tx.lRHr 10.2)1 TEo 013*50 

IU = m.U + lXUY(vJV) TEOOUOO 

K.=iYU iXxiYUV) TEOOlHlQ 

MI Hi (tMirU.'l IX. (V(K) .RsRl.K?) TE0014PO 

uwr t am.nt ixunixs.nni’x.ioHi'R u vuYPrumYui .ipwno.a. teooisao 

\ M/1 <♦ *<W. 11*11.1 0.21) TEO 010 40 

IU TUP 1 1 TLOOlHnO 

C . TEOOIUfiO 

TdtVfHl 11 . *E.OM 00 TO L'UtHl TEGOIHYO 

Ml 111 (> * UOO) I'M TEOQ14A0 

loon rv rmat (/ i\ ,.*«HAt''JiiST(A) , mlam-m coimi r,iioH=.iPi io. 2 ) ruiuni'jo 

las? teoouog 

K» -ill *lft ( U- Ml . 1 1 ) Tt.0013'1 0 

i?nn wi xi* (A.i'O'n (h.KsKi.K,') rt no is po 

IPOH f ( llMn r ( i Iv.PWIPPl SSURES AF TER AP4UST 1 3 1 //UX . 4HU» .1011(1/ YEoQUaO 

1 l.Wtsn ) TLftOlliuO 

i*.‘ 1, xln 1 tUASUrl . llYf'3 T1 noisno 

ns'iv-uuisu T( no is r,o 
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n on o n n n n n 


KA“l Yd! l- 2 MNYf' 2 -i 
Iv 4 = l » ♦ <.V- 2 )»llyH 2 -l 

lPUt, V.J I r r (y.2 in JY. <H(I<) ,Ksl<3.M,flYM2) 
II Cld.h -..'XU ) f.MUllN 

Kl=Kc'i 1 

Ki' s 'Utl(l (K.'H0,l|\cU| 

G( ll 1 1, (),; 

Hi run 1 1 


QMAI'Tr.t< 3 


PIUHI-OIITS foil LCVf.L 3 ONWAKUS 3 3 3 3 


---- r.'vJH riciLiirn or fin iTEi-u.TrrriuiNCE couations 

rfiJIH II (I i uto.uu.31 | 1,0 TO 4 00 0 

U «L.uV| UI.L'),,l i) 00 TO C 0 ;» J! 

|,l< IH (G,?.i21' ) 7 i TLtILAUdll > t lx 

or T 1 s i«j v 

2 (IF? wi- 1TUG.J -120) I 1 1 1 E ( LAlU'Hl ) * 1 XU 

2023 ci.iifruui 

ao?o r(.Fhn r i // 1 x.i.MinuErriciLMTS nr .A4,2x, iviinjiiATiON rou ix.= «i 4 .?x, 
i o i in- >//ix »?iiry .2xdon an.ioii as.ioii ac. 

Ill'll AW. mil SU. 11)11 541* ) 

K<-m 

ir < LAiil HI . tl3 . 2 ) K2=I YLl'Il 

nr in n ..>u?i> <«, anoo . as< ki , aeik) »aw(K) ,su(K) ,spu\) .k=iyf.k 2 i 

? 0 ? I F l ' R l’ 1 A T ( 1 x . 1 ? « ? X i I P 6 C 1 0 . 2 ) 

KL rtlKN 

MASS I L"W 1C ATI’S 

4000 II iKnCno.MC.4ll) GO ro 4100 

ir dm;. i u.-ii m 70 401 

Wt-lTl ( 6 . iO 1 

fc.lv ill (6,4 1 ( K . I LOV.’N ( K > , TLOwt ( K 1 . FLOWVf (K 1 . FLOW CL < K > , rtOwilE ( K 1 . 

1K=2.HY 1 

4 00 FI'UhA t t //I X. 2U I Y * 2 X. 101 1 rLOWN,lO|i ri.0WF.10ll FI OWW* 
HUH I L bWLLdOII FL-UWNC/) 

400 I OUMAI dX.l?..?y .1P5K10.W) 

GU T i 4' 2 

401 1,0 ITU. j,4. <31 

WI ITt <6.4,«y) IK .FLOl'IMUIv) .FLOiIW(K) .f'LnM IVMK) .Ft llWF(K) .rtOMl'IlKI * 

.1 — 2 » M Y 1 

4uw Luinniu* 

403 I . lumi (// 1 X. 2 IITY. 2 X. 1 UIT FEnWIJW , lOII FLOWli , inn Flowww, 

1 mil I LOW I ,1011 FLOWN/ 1 

ki njKii . 


■hiri.isiu" t trips. 


4100 II CKi,i>r , ...!t.4l ) KCTlIHN 

111' 1 TL t f, * 4 I 3(1 )T X , K oil NT (1 a) 

41,30 I uKfi/'l (/!'•, 03(111-) ,411 i>,= i iH » 1211 * KOUUT < IX ) = ,1 3 ) 
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OF POOR QUALITY 


ir < iuc,i.,(j.-i> tu Hi 
ki/uITL (i'.llO) 

vi i nv <■ «K,nirM(K> .uirruo ♦ oifvhk) tniKccoo .uirMF«K> . 

1 h=2,»iYj 

‘*10 I EHM/i r < V/t X t2l*IYt2XtlUI| DIFN.lOH D1FE.10H DlFW. 

i i ui i m-er,ioH uinit/» 

T.‘ <U2 

«H1 ITl M 

•> 1 !> (fe.H |H ((' tl)lFIIW(K) ttilfVMK I «DlFww<l<) *OIFF(K J »UIR1(K) , 

1 I =2 tUY) 

'll? CUlUiMUl 

'*13 roHr , «Ar{//ix.2n[Y«?K.ioii difmw.ioii oifwhoh dtfww, 

i ion uinr.itm ihfn/> 

fu.ruiui 
U.D 


TL 002090 
TE002100 
TE002110 
TE0021?0 
TEQ02l?(0 
TEOO2I14O 
TE002150 
Tt0021r,0 
TC002170 
TC0021«0 
TEO021S0 
TE002200 
TLO0221 0 
TEO02220 
TE0022S0 
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A 




::A4:_*l. 


* . . »•& -.. . U . • . i. .£> 1,. 


RlOOOOlO 

Sl'BKl.UT J III I'lACt RlinOOOpO 

LOGIC »L CuUVf? RL000030 

NODULE I III CISinn A.X,Y REOOO04O 

COMMuU /INDEX/ 1l)C0,IUCU2*IUF. IDH, IDH2, IDH20, luo. IUOll, IDOR.IOM. REnOOObO 
1 1 DHn , l'. Iin 2 * lDll.?.lOH2u,ICUUlL.lHCPs»lPR. JJ.KNTCStNA.NLMt RLOOOOrO 

P I SiilsLI ,ilbL2,IISK.NSMtNSl,NS2,lD(4,15) RE000070 

3/PAKA IS/ CO’iVG t CMV tCPSb .GASCON . IDLI3UG , ITMAX .PA , $M,T INYK » TK » TEN . TNYREOOOOAO 
S/gPLcES/AsUH ( P0 1 3 ) » CPSUM.HSUM. I|0 ( 14 ) »RMW ( 14 ) * SO ( 14 ) » SI ( 14 ) . RE000090 

6 S2< 14 ) .4(2.7, I 4 ) RE000100 

7/LtUUTL/A(.l, AC?,AC3,AC:4 ♦ Alll . Alt? . AH3 , AH4 , AfiMl , ASM2 , ASM3 , ASM4 , REqOOHO 

» AK1(4,7,2) .Hnrv.!IMAX,MMH,PEXP(T) REOOOJ.PO 

y/t’EAr VS/Qx (IS) , riX2(15 ) , TACT 1 15 ) » tACT? (1 R > , TEN( 1 * ) 1 TEN 2 ( 15) REOOOI 3 O 

CC'MfHil/LLNfJt S / AT OH ( 3 , 7 ) , H 0 ( 7 ) RE000140 

1 /STUCHu/ A L ( 7 » 1 4 ) REoOOlbO 

2 /MATRIX/ A ( 1 4 , 1 5 ) » X ( 1 5 ) » Y < 15) REOOOIAO 

OIMCMSI'-N DATA ( 12 ) , AT (4 ) ,U(4 ) RE000170 

C, 1 II- 11-1 -1_1-RE0O01rO 

CHaF’TH’ 111 1, 1 1 1 1 PRELIMINARIES 1111113 REJ11191 

C— _ — — - — — 1--^- 1 RE000200 

DATA ELr M/4HEI FH/ ‘ RE000210 

data :>vus/4Hreve/,third/4HM / reooo2?o 

DA f A Tli | ‘M/4' ITHr R/ 1 A 1 MCII/ 4 HMECH/ .BLANK/ 41 1 / RE000230 

DATA TCnL 1/2. 3n2505/,XMAX/0. 001/, XMIN/O. 000333333/ RE00024 0 

f ) 0 1) READ (5, 9lil> ( DATA ( I ) t 1=1 » 12) RE0002R0 

901 ruRMAT 1 1 P A 4 ) REo002fi0 

If (I.ATAd ) .La. BLANK) GO TO 900 RE000270 

II (I1AT7U ) .LT.ELEMI GO TO 10 REQ002A0 

If (UATA< \) .LQ.THRM) GO TO 20 RE000290 

If (KillLS.L'J.O) RETURN RE000300 

II (DAIAUI.EQ.AMCH) GO TO 30 RE00031 0 

C-l 1-. -1 1 1--.RE0O03P0 

CHAPTER 2 2 3 2 ? 2 2 2 ELEMENT DATA 2 2 2 2 2 ? ? RE000330 

C 1 — --1 1 - — -RL000340 

10 NLM=1 RED003*SU 

11 HI AH ( 5 1 1 1 0 ) ( ATOM(K.NLH) .K=1.2) RE0003GO 

1*0 flRil.Ar (Ar>.7X,f 10*6) RE0O037O 

II (A FUMl »IILH> .EO.DLANK) GO TO 12 RE(l003f\0 

NLH=uLM M RE000390 

GO 10 1’ RE000400 

12 NLH=NLlT-l RE00041 0 

GO To 900 RE0004P0 

C ’ -11 1-111 1 1_1_rE0 00430 

CHAPTER 3 3 ■*, 0 3 3 3 THERMODYNAMIC DATA 3 3 3 3 3 3 3REn00440 

c 1 rEO 004*0 

?0 !JS = 1 RE0004AO 

PI III AD (b.PPO) 1 1 1 A T A ( 1 ) ♦ 1 = 1, 3) , ( AT( J> »n< J) « J=1 14 ) ,T1,T2.NC[) RE000470 

P?t) FORMAT t 3A4 1 12 X « 4 ( A2 » f’3 . 0 ) . 1X » 2Fl 0 , 3 » 1 1 D ) RLn004f\0 

If (HAT I U ) .CO. PLANK) GO TO 2G RL'n00490 

l;l. All ( b . P2P ) ( / ( 1 . J » NS ) * J=1 ib), NCD REO0t)5o0 

??? 1 uRMArc- ns.a.i*) reooosi o 

KLAUlbi -pp) (/(l.J.NS) * J=Q1 7 ) , (2(2. K, NR) »)<=1,3) « NCU RE0005P0 
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ORIGINAL PAGE RS 
OF POOR QUALITY 


l<LAU( n* <?.',) (/(? . J*NS> *J='1 .7) ,NCD 

??.s rnru-v/.rc'itib.u, rpo > 

UO 2 2 L- 1 , fJLf'i 
?.? At. <L, US) =,1.0 
Sl»l-i=(..'J 
IJU 2'4 K = l,4 

If < I M K » .fU.tl. J GO To 24 
Uu 23 L=1 ,MLM 

IF (/MO, ( I tL) .(JC.AT(KI) GO TO 23 - 

AL ( L . IIS I =nL < l. , US ) +B ( K ) * 

SUM=SUM(-/\ rOU{2,L)*IHK) 
a 3 ClMTIHiJl 
2‘t cuiiriiiu r 
Sf 1 W(.i> )=S,iM 
l-C» 21 , 1-1,3 

25 ASUU(USiI)=U/\TA(I) 

IJS=HS'f 1 

GO Tn 2l 

26 Mf.;=IIS-l 

NSM=|JS + 1. 

MA=IIS« 1 

UU 27 1=1. US 
R3l l lU=l.i)/slW I > 

DO 2/ J=1 , 7 
DO 27 K=1 ,2 

27 2 < K *,J» I ) =/ (K » J , I ) *RSMll 

GO To 900 

c — - — : : 

CHAPTER 'I 4 4 0 H 4 REACTION MECHANISM DATA 4 4 4 4 A 4 K 


30 JO=l 

31 HEAD (5.350) ( nATA ( I ) » 1=1 » 12 ) »BX ( JJ ) • TEN( JJ) tTACT(JJ) .0T1.DT2 

330 FORMAT ( 12A4.3F8.3.2A4) 

IF (DATM 1 > .EO. BLANK) GU TO 354 
II (Dti.uc.uvrs, GO TO 32 
J=JJ-J. 

UX2 ( J ) =1 X < JJ ) 

1IJJ2( J)=Tt.[l< JJ) 

TACT2I J)=TACT( JJ) 

UX2 ( J ) =10.* *0X2 ( J ) 

G( TO 6 1 . 

32 fiX ( JJ > = 1 U . (J**I3X ( J J ) 
lit) 3.5 1 = 1,4 

33 II.* ( I . JvJ 
1 10=1 

00 3 <t 11 = 1 ,G 

K=n*2-i 

II (UAT,.(: ) .EO. BLANK) GO TO 38 
II (DAT AC') .IIP. THIRD) GO TO 34 
DATA ( K > =B| AUK 
Gt TO 3* 

.34 UG 35 1 = 1, US 


RCfl00530 
RE000540 
Rfc.000550 
RE0005AO 
REO 00570 
RE0005AO 
RE000590 
RL0Q0600 
RE00061 0 
RE0006?0 
RE000630 
RE000640 
RE000650 
RE0006AO 
RE000670 
REOOOfiftO 
RE000690 
RE000700 
RC0U071 0 
RE000720 
RE000730 
RE000740 
RE000750 
RE0007AO 
RE000770 
RE0007A0 
RE000790 
RE000800 

REoooai 0 
RE000820 
REOOCrxO 
REOOU840 
REOOOBSO 
RE0008AO 
REOOO87O 
REoOOOflO 
REOOO89O 
RE000900 
REo009tO 
REoO(J9?0 
RE000930 
R E 0 0 0 9 4 0 
REOOQ9SO 
RL0009A0 
RE000970 
REnO(j9nO 
REO0O99O 
RE001000 
RE00101 0 
RE0010?0 
RE0OIO3O 
RE001040 




211 


II (I Al i ( . r«f' . ASUD ( I • 1 ) > GO TO 35 
If < 1 1 A T/ <;'4l I .nr ,ASl'R(l .2) > GO TO AS 
! 1 SI 

GO f'l '► 

AS Cfntl'iUt 

jh If Mv.GI . M GO TO 3? 
luiiii., j„)-i i 

lltsl'bU 
o u r v< 6 

w ii (riu.i u.a) no=3 

li (lie, j.')=i i 

f|L‘=ll*>>l 

in l)X=<X mx-xMIM| *7. J42057L-2 
SUWX=O.D 
SvlM Y = u • *i 

1 1 tCI’s=2 
UVl = l 

NS r»=f iS 

DO 4*i 1 1 = 1, IS 
X 1 1 >=XHlM »UX*r | DAT ( I-I ) 
bDMXsKU :X + X ( 1 ) 

TMUv=Xi I ) 

Tlv=l.U/ IKjIlV 
TLll = AL'A ( ' K I 
CALL MCI S 
SUM 1 = 0. C 
DO AGO ' lisl.'l 
K=1U(|J0, JJ) 

If <I\.E ,.i|> Gn TO 350 
(it's (HOIK »-SO <K ) )>SMW(K ) 

II (I'D. IT. 3) SUWl=SUMl+uF 
If (flU.i L. 4) SIiDIsSUMI-gF 

350 COITT 1 1 IUI 

SUKi=fXI (*;u >1) 

T*- 1 = 1 .0 

If ( 10( V,JJ» .ro.O) TM1 = 0 . 002057-iTK 
IK <1U(4.,|J) .TM.O) TMlsl.l)/f(j.0U2t)57*TK) 

AK=liX ( Jw) 

If (Tt iHJO) .Mf .0.0) AK=AK*TK**TCN< JJ) 

IT (TACT I.IJl .Ilf .0.0) AK=AK*EXP f - TACT ( JJ I *TK INV ) 
Af =A|tf r. ii/SUMl 
Y f I > =ALl’G I AK ) 

351 SODY=MJ 'Y+Y< I ) 

>•;. ak=su x i*h . ggggggTL^p, 
yoAHr'DJ Y • b . GGOP tiG7f‘-2 
stjUx-n.i' 
sor.i=o . <• 

Sui r-o.c 

IK 3 S2 ’Sifts 

si •HX=SU' X f Y ( I ) i( X ( 1 1 -XbAH > 

GI*fU=SUi 1 f < X < I > -XL5AK J **2 
AS? SUMYrSIJ.' Y < ( Y ( I ) - YfiAR > 


Rtnoioso 
RLOOIOaO 
HL0010 70 
REOOlOflO 
RE001090 
KEOOIIOO 
RE00111 0 
REOUllPO 
RtOOlljO 
RL001140 
RE0011«sQ 
REOOllftO 
RE001170 
RL'oOUrO 
REoO 1190 
RE001200 
RE001210 
RE0012P0 
RE001230 
RE001240 
RE0012SO 
RE0012A0 
RE001270 
REO012AO 
RE001290 
RE001300 
RE00131 0 
RCf)0l3?Q 
REnOl3.30 
RE001340 
RE0013S0 
REnOl3fiO 
RE001370 
RE0013R0 
RE0O139O 
RE001400 
R E 0 0 1 4 1 0 
REnompo 
RE001430 
REO014UO 
R E 0 0 1 4 S 0 
RE0014R0 
REO 01470 
RE0014R0 
RE001490 
RE001500 
RL00151 0 
RE0015P0 
RE 00 1530 
REO 01 540 
REoOlSsO 
RLn015A0 
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ORIGINAL PAGE IS 
OF POOR QUALM 


rruauivjjsr.o 

HL001570 

TACT, ( JvU-s-SUMXASuMX 

RL0015M) 

i u a i >< j ) ~ t yuan ► r au «i ( j j > ♦ xtmfi > /tlnln 

HEnois^o 

SUrtXsg. i 

REQ 01600 

tH,' 3s 5 i — l. »lf> 

RtOOlfeiO 

S> MXscU- XUTlt HlACr2(JJMX(n-TENLM*ny?<JJ»!**P 

RE(>016?0 

SlMVs^u't 1 ll.-SUnX/SUMY) 

REOOI&SO 

Si rtX=SUI T|SI»MX«?.1«»2 S;j71-?J 

RLQ016H0 

tU2U3J|slf,.**ux?(jJ) 

RED016S0 


REt)0l6f,D 

bU Yu 3! 

HLQQ1670 

J j = J J- 1 

RLnOXf.nO 

Hi TUHU 

REn0l690 

LI ill 

RL001700 
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HCPSOOl 0 

Sl'UlMUl l|J> i-lCPS HCPSOOPO 

U'GlCnL C-MI oy HCPS0030 

c. /I 't,r.x/ f.KO. IUCu2, IUr . IIJH* iuily , irni20. Ilk), IOO|(, IDO?. U)H. HCPS0040 

1 M‘i2 , H''I2 , 101120 « lt'JUlL * IHCPS « IPR , JJ«KNTCS ,NA »fJLM , IICPSOOSO 

2 SCI) Si:2.hSK»NSM.IiSl.NS?,ID<4.15) UCPSOORO 

,v/^Af< V $/ ,.G 'VG.Cr.v.tPG-S, GASCON, IDEBUG , I TMAX , PA , SM , TIN YK , TK , TLN , TNrHCPS0070 
b/MMLU S/ A* U'!(^n,3> ,CPSUM,HSUf",H0<14> ,SMWt 14) *$0 <14 ) « SI < 14 ) . HCPSOOAO 

b r 2 ( 1 <t I , 2 { 2 * 7 « 1 4 ) HCPS0090 

//i L OWL,/ AM, AC0«AC3,AC4,Aill,AH2tAH3»All4.ASi'11»ASM2f ASM3.ASP4 , HCPS0100 

.) ;wSl(4, 7,v> , HIM V. UMAX, IIMU'M’I XP<7) HCPSOllO 

P/j.f-Ai rS/IU (15 > ,I)X2< 15) , r ACTUS) .TACT2U5) 15) ,TCN2( 15) HCPS0l?0 

C __ ’ ---IlCnsOliO 

citAPim li iiiiiiiiii. 111111111 HCPS0140 

C------ - - HCPSOllO 

K=1 HCPSOlfiO 

rr 11K.LT.1U0H. > *=2 MCPS0170 

Ii\IIIV = l . 0/V< NCPSOlAO 

Th3=I K + t K HCPS0190 

Th4=TK3 t Tl-. , HCPS0200 

TKS=lK4 i Ti\ HCPS0210 

ri>2=0.5'Ti HCPS 022 U 

lr 3=<i.3 .3‘-,333*TI<3 HCPS0230 

n 4=U.2N*rKH HCPSQ240, 

Ti 5=0 . 2 ♦ Trb HCPS0250 

If C I l|CI "S -2 1 lUi),?.00*<5UO MCPS02AO 

10 0 I ISUH=0 • J HCPS0270 

Of lU l-'='ISl ,ltS? HCPS02A0 

IKK 1 H ) = rM r ,*2 ( K , 5 , 1 S ) + TM4 *2 ( K , 4 , 1 S ) +TM3*7 ( K , 3 » IS ) + Tf12 >2 ( K , ? , IS ) ♦ HCPS0290 

J / ( h , l » ’ S 1 4Z ( K , P » IS ) ♦TKIWV HCPS03n0 

m iisun= is>'M+iionsi*s2US) hcpso3io 

HI ruiiil HCPS03P0 

c - — hcpso3*o 

ChAPnn 2 ? 2 2 P ? 2 ? 2 ? 2 2 p 2 2 ? ? ?. ? 2 2 HCPS0340 

c ._ 1 --- ... .* HCPS03«i0 

?no iimm=.j,o hcpso3ao 

ClvSUf=0.0 IICPS0370 

DC 20 IS=!lSl,US? HCPS03A0 

*y.5I = Z(l- .5. IS) HCPS0390 

/h 4 1 =/ ( »•- , 4 , IS ) HCPS04ff0 

21- 3 1 =2 (>■' , V* IS ) HCPS041 0 

Z! . 2 1 = 2 < ; v » 2 • I S ) HCPS04PO 

^ li=/(/, ) , IS » HCPS0430 

IIP ( IS) = lf ; 5*2K5l+Tf-.4*2K4 1 + TN3*?K3I+T(12»7K2I + 2K1I + Z(K,6, IS)*TKINV HCPS0440 

Cl SU ••=< IK.j*7K5T + rK4«ZK4 1+TK3 + 7K3I*TK*7K2I+ZK1I )*S 2 ( IS)4Cp.sUK HCPS 0 4S0 

20 IISU‘l=:iSt fi+llO US) *S2< IS ) HCPS04A0 

HI rui'.J HCPS0470 

c _ ; I — HCPS0 4nu 

CHAprrn 5 s \ 3 s 3 s' 3 5 7 , 3 3 3 3 3 3 3 3 3 3 3 hcpsohpo 

r 1 HCPS0500 

300 TI 3=51.5' T- 3 HCPS05 1 Q 

p 4 = !>.3--3*.3 >3*n-4 HCPS05?0 
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fi 5=u.2 t '*rhS MCPS05.no 

U(. So I *=*iSl «ilS? HCPS054Q 

^i> 51=/ (.*,*,» IS ) HCPSOS'iO 

ta^C‘ «‘i t IS) HCPS0560 

21- 31=7 1 1’ i At IS) HCPS0570 

21^2 I=C(iv» 7 i IS ) MCPS05KO 

, | tIS) HCPS059Q 

Si>< IS> = iK , i*:. , K t jT ^rKH»ZKm*TK3»7K31*TK#7^?UTLN«2Kir + ?(Ki7. IS) HCPS 06 n 0 

IMM IS)- »M>*/KbMTf ( 1 «*ZK‘*UTM3*7K3mM2*7l<2l>2Kl 1+2 (K.6, IS) *TKIMV HCPS0610 
Ki TUI M MCPS06P0 

Lt U HCPS06.nO 
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LISTING OF DATA CARDS 


ELEMENTS 



*ooni 

C 

12.01115 

4.0 

.oon2 

H 

1.00797 

1.0 

.0003 

0 

15.9994 

-2.0 

.0004 

N 

14.0067 

0.0 

.0005 


.0006 

THERMO FOl< CH4/ATR COMBUSTION WITH NOX ' .0007 

M J 3 / 6 IN 1 .00 0.00 O.Un 0.6 300,000 5000.000 _C 0 Ofi 

G • 2 4 5 0 2 6 7 ft F Cl 0 , 106&1458E-05-0 .746533156-07 C • 18796520E-1 0-0 . 10?59ft37r-l4 .0009 

0.561160356 05 0.44407572E 01 Q.2503G699E 01-0.218001016-04 0 . 542.052846-07 , .-001 0 

-0.5647560?F-10 0 .20999033E~13 0.56098898E 05 0.41675749E 01 ; .0011 

UO J 6/63 N 1.0 1.00 0. On 0.6 300.000 5000.000 10012 

0.318899926 01 0 . 13302279E-02-0. 5289931 6E -06 0 .959i93l4E-l 0-0 . 64 8479286- 14 .0013 

0.962B2242F 04 Q.6745ftll5E 01 0.40459509E Ol-O . 341817836-02 0.798191746-05 .0014 

-0 .61 139254 FT -08 0 . 15919072E-11 Q.97453867E 04 0.2997497&E 01 .10015 

'NO 2 J 9/64H 1.0 2.00 0.00 O.G 300.000' 5000.000 .0016 

ft . 4 624 0 7596 01 0. 2526033 0E- 02-0 . 106094836-05 G . 19879239E-09-Q . 137993806-1 3 >.^10017 

0 • 2 2 8 9 9 9 0 fl 6 04 0.13324137E Ol 0.34589224E 01 0 . 20647063E-02 0.668660606-05 .001 8 

-0.955566656-06 0 . 36195873E-11 0,2ftJ52261E 04 0.8311693QE 01 . 10019 

,J20 J12/64N 2.0 1.00 0,00 O.G 300.000 5000.000 \ lOOPO 

{5.4730 66 6 2 F 01 0 .28258, 264E-U2-0. 11558104E-05 0 . 2 1 263&01E - 09- 0 , 1 4 564 0616- 1 3 . J.0021 

0.816176176 04-0.171 51070E 01 0.261 89194E 01 0 . 86439550E-U2-0 . 681106126-05 l00?2 

0 .222758 776-0 8- 0 , 8 065 U276E-1 3 0 . 0759Q078E ' G4 0.92266951E Ql 10023 

M2 J 9/65 M 2.U 0,0 O.G O.G 500.000 5000.000 - - .0024 

0. 2 8963 1 94 F 01 0.151 54663E- 02-0 .572352756-06 0 . 99&07385E-1 0-0 . 65P23536F-14 .0025 

-0, 905661 G2F 03 0.6l6i5l43E Ol 0.367402576 01-0 . 120319966-02 0.232401006-05 J.0026 

- u . 63 2 175206-0 9 - U . 22577 2 5 3 £ - 1 d - 0 « 1 G 61158 7 6 04 0.23580418E Ol * 0027 

CH4 J 3/olC 1H . 4 00 0 00 OG 3 0 0.000 5000.000 1.10 020 

U. 150270726 01 0 . 1 0416790E-01 -0 .391015226-05 0.677778996-09-0 . 44283706E-13 ’2.0029 

-0.997Q7Q78F 04 0.1U707143E 02 0.3O261932E 01-0 . 3979458 IE-02 0 . 24 5583406-04 3.0030 

-!J .22732926F-07 0 . 69 626957E -1 1 -0 . 1 0 1 4 495GE 05 0.866900736 00 4.C031 

02 J 9/650 2.0 0.8 0.0 O.G 300.000 5000.000 I005? 

0.36219521T 01 0*73618256 £ ~ (J 5 - 0 .196 52 2 .1 96 - 0 6 0 . 362015566-10-0 . 2894 5623c--l 4 J.0033 

-C.12019322F' 04 0 .36150942E 01 0*362559896 0 1 -0 . I87ft2l03£-02 0.705545436-05 ’ .0034 

- 0 .6 7 6 3 b 07 i F -OS 0 .21555977E-11-0 .104752756 04 0.43052.7696 Ul 10035 

CO J 9/6 5 C 1.0 l.C'O 0.00 O.G 300.000 5000.000 .0036 


0.298406896 01 0 . 1 4 8 9 1 38 7 E - 0 2 - 0 » 5 789 5678E-06 0.103643766-09-0.693534996-14 .0037 

- 0 • 1 42 4 5227F 05 0.63479147E 01 G.37100916E 01-0 .1619Q964E-02 0 , 36923584F-05 .0038 

-0.20319673F-00 0 .23953344E-12-G . 14356309E 05 0.29555340E 01 .0039 

in 02 J 9/65C 1.0 2, 00 O.On O.G 300,000 5000,000 10040 

0, 446080 4 OF 01 0, 30931 717E-G.2-0 * 12392566E-05 0 , 22741323E-09-0 . 15525948E-13 .0041 

- 0 . 4 8 9 6 1 4 3 8 F 05-0. 986 35978E 00 0.24007788E 01 0. 87350905E-02-0 . 66070 AAlf>(l5 .0042 

D.2002186QF -08 0 . 63274039E- 1 5-0 . 48377520E 05 0.96951447E 01 .0043 

H J 9/65 H 1.00 0.00 0.00 O.G 300,000 5000.000 .0044 

■ 0.25000000E 01 0.0 0.0 0.0 0.0 .0045 

0.25471625F 05-0 .46011758E 00 0.25000000E 01 0.0 . 0.0 10046 

0.0 0.0 0.25471625E 05-0 . 460H758E 00 10047 

HP J 3/61 H 2.0 0.0 0.0 0.6 300.000 5000.000 .0043 

0.31001883F 01 0 .51119453E-03 0 . 52644204E-07-0 . 34909964E-10 0 . 36945341E-14 10049 

-0.87738013F 03-0 ,19629412c 01 0.30574446E 01 0 .26765198E-02-0 .580991 49C-05 ' .[0050 

0 , 55210343 F - 08-0 .181 2272 6E.-1 1 - 0 .9889043 0c 03-0 , 22997046E 01 10051 

hPO J 3/61H 2.0 1.00 O.On O.G 300.000 5000.000 .0052 

U. 271676166 01 Q * 2945 137 OE-O 2-0 .8 0224 3686-06 0 . 10226681F-09-G .484721 04F-14 .0053 

-0,29 9 0 58 2 0 F 05 0.6630566&E 01 0.40701275E 0 1 -0 . 11 0 Q4499E-02 0 .41521 1806-05 10054 

- 0 • 2 9 6 3 7 4 0 4 F - 0 8 0 . 8 0702 1 OlE- 12- 0 . 3 0279719E 05-0 . 32270038E 00 _’ OOS5 

0 J 6/620 1 .00 0.00 0.00 O.G 300.000 5000.000 .0056 

f! « 25 4 20 58 OF 0 1 -0 . 2755 06 03E - 04-0 . 3 1 028029E-08 0 . 4551 0<;70r-li-0 . 436804946-15 .005' 1 

0 . 292308 Q IF 05 0.492O3O72E 01 0.294642636 01 -0 . 16.3Gl664E-02 0,24210303^-05 .0053 

- 0 » 1 6 0 2 84 3 2 F - 0 8 0 . 3S906964E-12 0.29147641E 05 D.29639931E Ol 10059 

OH J 3/660 1 ,n 1.00 U.OO O.G ’ 300.000 5000.000 .0060 

0 .2 9 1 0 6 4 1 7 F 01 0.55931 6 27E-03-0 . 194417006-06 0 . 1 3756646F - 1 U 0 . 1 4224642F-15 l0Q61 

U . 3 9 3 5 3 8 1 1 F 04 0 .544 23428C Ul 0.383759316 01-0 . 10778855E-02 0 . 9683P 354F-06 10062 


u • 

1 87 1 3 9 7 IF - 0 9-0 

.22571 0696-1 2 

0.56412820 E 04 

0 . 4937 0 0 0 9E 00 


* 0063 









.0064 

MECHANISM 







0065 

N 

NO 

Ij2 

0 


10.1760 

o.u 

0.0 

WALO7/74.0O66 

N 

02 

NO 

A 

• U 


6.776 

1*0 

3172. 

WALD7/74.G067 

OH 

N 

H 

NO 


8.778 

0*5 ' 

4 0 23. 

WALD7/74.0068 

H 

H20 

‘ OH 

M2 


10.903 

0.0 

7553 . 

WALD7/74-0069 

M20 

0 

7J0 

NO 


11.000 

0.0 

15000. 

WALD7/74.0070 

N20 

1*1 

N2 

0 


11 .QUO 

0.0 

25176. 

WALD7/74.0071 

N 

0 M 

NO 

M 


10.306 

-0.5 


.0072 

N02 

0 

NO 

02 


10.000 

0.0 

300. 

10073 

NO 2 

: 21 : 

0 

NO 

M 

13.041 

0.0 

33000. 

10074 


.0075 



APPENDIX C - GLOSSARY OF FORTRAN VARIABLES 

Note: A number of Fortran variables, which are used locally 
in NASCO II, are not listed below. However, the user 
should be able to derive their meaning from the context 
in which they are used. 
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NAME 

LOCATION 

TYPE 

MEANING 

A 

COEFF 

Array 

Finite-difference coefficient. 

A 

* CALC 

Array 

Elements of the correction matrix. 

AC1-AC4 

BLOCK 


Polynomial coefficients for specific 


DATA 


heat of equilibrium-product-species. 

AE 

COEFF 

Array 

Finite-difference coefficient. 

AEDDX 

GEOM 

Array 

Ratio of area to the internodal distance 
for east face of the cell. 

AH1-AH4 

BLOCK 


Polynomial coefficients for enthalpy 


DATA 


of equilibrium-product-species . 

AK 

BLOCK 

DATA 


Von Karman constant . 

• . . . - ' . * . ‘ ' 

AK 

REACT 


Temporarily stored quantity. 

AL 

REACT 

Array 

Atomic stoichiometric coefficients; 

AL (I,J) is the kg-atoms of element I 
per kg-mole of species J. 


ALNR1I 

' MAIN 


in (r l,n/ r l,i>- 

ALNR10 

' MAIN 


< r iy r l,m> • 

ALNR2I 

MAIN 


Jn 

ALNR20 

MAIN 


( r 2,o/ r 2,m)' 

AMCH 

REACT 


Alphanumeric storage for ”MECH" . 

AN 

COEFF 

Array 

Finite-difference coefficient. 

ANDDY 

GEOM 

Array 

Ratio of area to the internodal distance 
for north face of the cell. 
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NAME 

LOCATION 

TYPE 

MEANING 

AREA 

ADJUST 


Total flow area normal to the x-direction. 

AREAS 

GEOM 

Array 

Area of east face of a continuity cell. 

AREAN 

GEOM 

Array 

Area of north face of a continuity cell. 

ARG 

WALL 


Logarithm of argument. 

ARGMIN 

WALL 


Smallest value of ARG. 

ARRCON 

BLOCK DATA 


Arrhenius constant, E/R. 

ARSL 

COEFF 

Array 

Sum of absolute values of RSLINE. 

AS 

COEFF *■ 

Array 

Finite-difference coefficient. 

ASM1- 

ASM4 

BLOCK DATA 

Array 

Polynomial coefficients for reciprocal 
mean molecular weight of equilibrium- 
product-species. 

ASNIP 

COEFF 

Array 

Finite-difference coefficient used in 
performing SNIP. (see Section 3.3.5). 

ASUB 

REACT 

Array 

Molecular symbol for species . 

AS1 

BLOCK DATA 

Array 

Polynomial coefficients for concentratior 
of equilibrium-product-species . 

AT 

REACT 

Array 

Atomic symbol for species . 

ATOM 

REACT 

Array 

For element K, 

ATOM (1,K) = Atomic symbol; 

ATOM (2,K) = Atomic weight; 

ATOM (3,K) = Valence or oxidation state. 

AW 

COEFF 

Array 

Finite-difference coefficient . 

B 

COEFF 

Array 

Finite-difference coefficient. 

BIG 

BLOCK DATA 


A large number. 
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NAME 


LOCATION 


TYPE 


MEANING 






BLANK 

OUTPUT, 

REACT 

> 

Alphanumeric storage for 4 "blank spaces. 

BSNIP 

CQEFF 

Array 

Finite-difference coefficient used in 
performing SNIP, (see Section 3.3,5). ■ 

BN 

REACT 

Array 

Arrhenius pre-exponential factor for 
forward reaction. 

BX3 

REACT 

Array 

Arrhenius pre-exponential factor for 
b ackwar d reaction , 

Q 

CQEFF 

Array 

Finite-difference coefficient . 

CCHECK 

BLOCK DATA 


Convergence criterion for sum of 
residual errors. 

CE, CN, 
cs, cw 

CQEFF 


Convective fluxes ($« oast face, N-North 
face, etc, ). 

CM IN 

■ ■ 

BLOCK DATA 


Specific heat of mixture, 

CONI) 

BLOCK DATA 


Thermal conductivity. 

CQNVG 

SPECK 

; 

Parameter to indicate convergence of 
chemical -kinetics solution * 

CPE 

CHEM 


Specific heat of equilibrium-product- 
species. 

CP SUM 

HOPS 


Specific heat of mixture, 

CSNIP 

CQEFF 

Array 

Finite-difference coefficient used in 
performing SNIP, (see Section 3.3.5) . 

D 

COEEF 

Array 

Finit e-dif f er enee coef f Toi ent , 

DATA 

OUTPUT 

Array 

Temporary storage before printout. 

DATA 

REACT 

Array 

Temporary storage for reading in data. 

DE,DN, 

DW 

COEFF 

v. , 

Diffusion fluxes (EKKust face, N-North 
face, . etc, ), 











NAME 

LOCATION 

TYPE 

DELU 

ADJUST 


DIFE 

COEFF 

Array\ 

DIFEE 

COEFF 

Array 

DIFN 

COEFF 

Array 

DIFNE 

COEFF 

Arrayl 

DIFNW 

COEFF 

Array! 

DIFW 

COEFF 

Array 1 

DIFWV? 

COEFF 

- • 

Arrayy 

DP 

ADJUST 


DSNIP 

COEFF 

Array 

DTEMP 

MAIN,CHEM 


DTI 

REACT 


DT2 

REACT 

3 

DU 

COEFF 

Array 

DV 

COEFF 

- 

Array 

DXG 

GEOM 

Array 

DXU 

' GEOM 

Array 

DYG 

GEOM 

Array 

DYV 

GEOM 

Array 

ELEM 

REACT 


ELl-ELc 

BLOCK DATA 



MEANING 


Increment in values of U along a line 
resulting from an overall continuity 
correction . 


, 1 -rays used to store the diffusion fluxes 
hrough the faces of a continuity cell. 
(E=East , EE=East-east ; 

N=North; NE=North-east ; NW=North-west ; 
W=West ; WW=West-west face.) 

Pressure increment . 

Finite-difference coefficient used in 
performing SNIP, (see Section 3.3.5). 

Fractional temperature increment. 

Quantities used during input of 
thermochemical data. 

Influence coefficient used in the 
correction of u-velocity. 

Influence coefficient used in the 
correction of v-velocity. 

Difference in the x-coordinate values 
between two adjacent grid nodes. 

Difference in the x-coordinate values 
between two adjacent u-locations. 

Difference in the y-coordinate values 
between two adjacent grid nodes. 

Difference in the y-coordinate values 
between two adjacent v-locations. 

Alphanumeric storage for ’ELEM' . 

Dimensions of combustor L^,L 2 ,L 3 (Fig. 1), 









NAME 

LOCATION 

TYPE 

MEANING 


BLOCK DATA 


Mass flow rates of air mid fuel at inlet. 

EMISlOl 



Dnissivities: lQOuter surface of inner wall; 

EMIS2I 

BLOCK DATA 


2I=inner surface of outer wall; 



20=0uter surface of outer wall; 

mi ski 



XI=inner surface of end wall; 

EMISXOJ 



X0=outer surface of end wall* 

EMU 

MAIN 

Array 

Effective viscosity. 

EMUREF 

BLOCK DATA 


Reference viscosity (-laminar viscosity). 

EMUT 

MAIN 


Turbulent viscosity. 

EMV 

OREM 


Total convective and diffusive mass 
inflow to a cell. 

ENTII 

MAIN, 

CHEM 


Enthalpy. 

ENTHB 

MAIN 


Enthalpy of B-stream, 

ENTHC 

• 

MAIN 


Enthalpy of C~ stream. 

EPSS 

BLOCK DATA 


Convergence criterion for species 
concentrations . 

EPST 

BLOCK DATA 


Convergence criterion for temperature. 

EQRAT 

OUTPUT 


Equivalence ratio. 

ER 

WALL 


EWALL* Reynolds number. 

ESMASS 

SOURCE 


Source term for continuity equation. 

ETA 

SPECE 


Under-relaxation parameter . 

ETA1 

SPECE 


Under-relaxation parameter. 

EWALL 

BLOCK DATA 


Constant in wall function. 

F 

MAIN 

Array 

An array used to store all the 
dependent and auxiliary variables. 

FACTOR 

MAIN 


Temporarily stored quantity. 
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NAME 

LOCATION 

TYPE 

MEANING 

FFU 

MAIN, 

CHEM 


Mass fraction of fuel. 

FJF 

SOURCE 


Mass fraction of fuel. 

FJP 

CHEM 


Mixture fraction. 

FLOB 

MAIN 


Flow rate in B-stream. 

FLOC 

MAIN 


Flow rate in C-stream, 

FLOWE 

FLOWEE 

FLOWM 

FLOWM 

Array? 

ArrayJ 

Convective fluxes through the east and 
east-east faces of a finite-difference 
cell. 

FLOWIN 

MAIN 


Total inlet mass flow rate (air+fuel). 

FLOWN 

FLOWNE 

FLOWNW 

FLOWM 

FLOWM 

FLOWM 

Array J 
Array > 
Array ) 

Convective fluxes through the north, 
north-east and north-west faces. 

FLOWST 

ADJUST 


Mass flow rate Based on the starred 
velocities . 

FLOWUP 

ADJUST 


Mass flow rate through the plane up- 
stream (in the sweep direction) of the 
one being considered. 

FLOWW 

FLOWWW 

FLOWM 

FLOWM 

Array} 

ArrayJ 

Convective fluxes through the west 
and west-west faces. 

FM 

MAIN 

Array 

Mixture tract ion . 

FN2 

CHEM 


Nitrogen mass fraction. 

F02 

CHEM 


Mass fraction of oxygen. 

FPR 

CHEM 


Mass fraction of equilibrium-product- 
species . 

FS 

MAIN 

Array 

Mass fractions of species. 

FSIX 

CHEM 


Temporary storage for FS. 





NAME 

LOCATION 

TYPE 

MEANING 

FSTOIC 

MAIN 


Stoichiometric mixture fraction. 

FSTOIM 

MAIN 


1.0 - FSTOIC. 

■ 

FUB 

BLOCK DATA 


Fuel mass-fraction in B-stream. 

FUBRNT 

SOURCE 


Fuel mass-fraction in fully-burnt gas. 

FUC 

BLOCK DATA 


Fuel mass-fraction in C-stream. 

FUE 

MAIN 

Array 

Unburnt fuel mass fraction. 

FUEX 

SOURCE 


Excess fuel. 

GASCON 

BLOCK DATA 


Universal gas constant. 

GAZ 

REACT 


Alphanumeric storage for ' G’ (for gas). 

GF 

REACT 


Temporarily stored quantity. 

I-I 

MAIN 

Array 

Stagnation enthalpy. 

HD IV 

BLOCK DATA 


Intermediate enthalpy value for the 
coefficients AS1 . 

HFU 

BLOCK DATA 


Heat of combustion of fuel. 

UMAX 

BLOCK DATA 


Maximum enthalpy value for the coeffi- 
cients ASl . 

HMIN 

BLOCK DATA 


Minimum enthalpy value for the coeffi- 
cients ASl, 

HMIX 

CHEM 


Mixture enthalpy. 

HPR 

CHEM 


Enthalpy of equilibrium-product-species. 

HSUM 

MAIN 


Enthalpy of mixture. 

HO 

MAIN 

Array 

Enthalpy of species. 

HW 

BLOCK DATA 


Recovery factor. 
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NAME 

LOCATION 

I 


ICONST 


ID 

REACT 

IDASH 

COEFE 

IDCO 

BLOCK DATA 

IDC02 

BLOCK DATA 

IDEBUG 

BLOCK DATA 

IDE 

BLOCK DATA 

IDH 

BLOCK DATA 

IDH2 

BLOCK DATA 

IDH20 

BLOCK DATA 

IDN 

BLOCK DATA 

• ■ ■ 

IDNO 

BLOCK DATA 

IDN02 

BLOCK DATA 

IDN2 

BLOCK DATA 

IDN 20 

BLOCK DATA 

IDO 

BLOCK DATA 

IDOH 

BLOCK DATA 

ID02 

BLOCK DATA 


MEANING 

Index, generally used to define the 
storage location of a variable (other 
than v or p) at a given grid node. 

-IX2NY2-1 



ID (K,J) is the species index 
of species K in reaction J. 

number 

Index 

in back-substitution for 

TDMA. 

Index 

for 

CO. 


Index 

for 

C02. 


Index for chemical-kinetics diagnostic 
output ; 

=0, no output; 

-1, output obtained. 

Index 

for 

fuel . 


Index 

for 

H. 


Index 

for 

H2 . 


Index 

for 

H20 . 


Index 

for 

N. 


Index 

for 

NO. 


Index 

for 

N02 . 


Index 

for 

N2. 


Index 

for 

N20 . 


Index 

for 

0 . 


Index 

for 

OH. 


Index 

for 

02. . 






NAME 

LOCATION 

TYPE 

MEANING 



lEQUILl BLOCK DATi 


IHCPS 
ILAST 
I MAT 
XMON 


INERT 


CONST Array 


MAIN 

CONST 

SPECE 

CONST 

MAIN 

BLOCK DATA 


Array 


Array 


IPLRS BLOCK DATA 


BLOCK DATA 


Storage locations for neighbouring nodes 
around the one corresponding to the 
storage location I or IV; IE for the 
eastern one, INW for the north-western 
one, and so on. 

Storage location for p-node at the east 
of the one corresponding to IP. 

=0, equilibrium concentrations not 
i „ obtained. 

=1 , equilibrium concentrations obtained. 

The number of nodes in the r-direction 
at which values of a dependent variable 
are stored. 

Index to control calculation of 
thermodynamic properties. 

The last location in the E-array for a 
given variable. 

Number of rows in Newton -Raphson correctic 
matrix. 

Index to denote the grid node (IXMON, 
IYMON) for use in monitoring the 
progress of the iterative solution. 

-1, sweep in positive x-direction; 

=-l, sweep in negative x-direction. 

Indicator of chemically- inert /reacting 
flow: -1, Chemically inert; 

=2, Chemically reacting. 

Index used to define the storage 
location of a p-node. 

Number of sweeps after which residual 
errors are printed out . 

Index number for products. 
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NAME 

LOCATION 

TYPE 

MEANING 

IPREF 

CONST 

. 

Index used to define the storage 
location of the reference-pressure node. 

IPRINT 

BLOCK DATA 


Index to control type of printout 
required, i.e. field values of dependent 
variables are printed after every 
IPRINT iterative sweeps. 

ISNIP 

MAIN 


-0, SNIP is performed; 

=1 , SNIP is not performed (See Section 3.3.5 

I SWEEP 

MAIN 


Variable counter for the iteration 
sweep number. 

IT 

MAIN, 

CHEM 


Number of iterations on temperature. 

ITER 

SPECE 


Number of iterations during chemical- 
kinetics computations. 

ITMAX 

BLOCK DATA 


Maximum number of iterations of 
chemical-kinetics computations. 

IV 


• • 

Index used to define the storage location 
of a v-velocity node. 

IVE, IVN 
IVS, et 

**•• • 

__ 

• 


Storage locations for neighbouring 
v-nodes around the one corresponding 
to IV-IVE for eastern one; IVN for 
northern one; and so on. 

IX 



The grid-line number for an X-constant 
line on which variables are being 
updated. 

I XI NY 

IX1NY1 

IX2NY2 

IX1NYU 

IX2NYU 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


=( IX-1 )*NY. 
=(IX-1)*NYM1. 
=(IX-2)*NYM2. 
=( IXU-1 )*NY . 
=(IXU-2)*NYM2 . 
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NAME LOCATION TYPE MEANING 


IXMON, BLOCK DATA (IXMON, IYMON) is the location of the 

IYMGN grid node at which values of the 

variables are printed out at each 
iteration for monitoring the numerical 
process » 

IXNY CONST Array Variable to facilitate computing the 

location in the storages for the 
variable denoted by J at a grid node on 
the line where variables are being- 
updated. For example, I=IY+IXNY( JV) 
gives the storage location, I, in the 
V-array at the grid node (IX, IY), IX 
having been included into IXNY ( JV) . 

IXP1 MAIN -IX+1. 

IXPREF BLOCK DATA (IXPREF, IYPREF ) is the location of the 

lYPREF grid node where the pressure is taken 

as the reference value. 

IXU MAIN JX-location of u-velocity currently 

being solved for . 

IXUP1 MAIN IXU+1 . 

IXW BLOCK DATA Index denoting end pi inner tube in 

x-direction s 

IY An index used to denote the (IY)th grid 

node on the line where variables are 
being updated. 

IYF, MAIN The first and last lY-locations in the 

IYL domain of integration. 

IYFM1 MAIN =IYF-1 . 

IYFP1 MAIN =IYF+1. 

IYFUEL BLOCK BATA IY location of incoming fuel stream. 

IYLM1 MAIN =IYL-1 . 

IYLP1 MAIN =IYL+1 . 

IYM1 . =IY-1.. . 
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M l 

vxdm&t* 


*±i?«Ls 


± 


J 


NAME 

LOCATION 

TYPE 

MEANING 

IYW 

BLOCK DATA 


Index denoting location of inner tube 
in y-direction. 

IYWM1 

MAIN 


=IYW“1 . 

IYWP1 

MAIN 


=*IYW+1 . 

I ZERO 

CONST 

Array 

The location in the F-array that is 
immediately in front of the first of 
the storages for the variable denoted 
by J. 

JEMU 

BLOCK DATA 


Index for effective viscosity. 

JFM 

BLOCK DATA 


:ridex for mixture fraction. 

JFUE 

BLOCK DATA 


Index for unburnt fuel mass fraction. 

JH 

BLOCK DATA 


Index for stagnation enthalpy. 

JJ 

REACT 


Number of chemical reactions. 

JLAST 

. ... 

BLOCK DATA 


Maximum index number for variables stored 
in F-array . 

JP 

BLOCK DATA 


Index for pressure. 

JPHI 



Index for general variable 4> . • 

JPP 

BLOCK DATA 


Index for pressure-correction. 

JRHO 

BLOCK DATA 


Index for density. 

JS1, 

BLOCK DATA 


Indices for first and last chemical 

JS2 



species in F-array. 

JTEM 

BLOCK DATA 


Index for temperature. 

JU, JV 

BLOCK DATA 


Indices for u and v velocities. 

KASE 



Index denoting problem. 

KGOTO 



Index used in a subroutine argument list 
to access the appropriate cart of the subroutine 



J Ion any call. 
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NAME 

LOCATION 

TYPE 

MEANING 

KINPRI 

BLOCK DATA 

■ 

Control index for print-out of initially 
assigned values of variables in field, 
-0, of no print-out of these needed; 

5 = 1 , if print-out wanted. 

KLT 

BLOCK DATA 

B 

Index to denote type of flow; i.e. 
laminar (1) or turbulent (2). 

KMAT 

SPECE 


I MAT + 1, 

KNTCS 

BLOCK DATA 


=0, chemical-kinetics computations 
suppressed; 

-1 , chemical-kinetics computations 
performed. 

KOUNT 

MAIN 

Array 

An array used to store for each TDMA line 
the maximum number of TDMA traverses made , 
this number being. LE. NTDMA. 

KRAD 

BLOCK DATA 

• " " . ' . 

Control index for cartesian or 
cylindrical polar ( axisymmetrical ) coor- 
dinates, 

=1 for cartesian; 

=2 for cylindrical polar. 

KRIIOMU 

CONST 


=5KSOLVE (JRHO) + KSOLVE (JEHU). 

KSOLVE 

BLOCK DATA 

Array 

Control index to govern whether the variable 
denoted by J requires updating in the numerical 
process , J covering the whole range of variables 
under the E-array; 

=0, if not to be updated; 

-1, if updating required. 

KSWEEP 

BLOCK DATA 


Number of sweeps after which chemical- 
kinetics computations are started. 


BLOCK DATA 

■ 

Control index for diagnosing print out levels; 
=0, if no such print-out is required; 

5 = 1 , prints out the following : geometrical quan- 
tities related to the grid, variable information 
initial values assigned in the field; 

L 


J 
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NAME 

LOCATION 

TYPE 

MEANING 



' 

• 

=2 prints out those for I and the following - 
starred velocities and velocity residual-sources 
on the TDMA line, also quantities related to the 
overall mass- continuity adjustment and the cell- 
wise-continuity correction; 

=3 prints out tliose for 2 and the coefficients 
in the general form of the finite-difference 
equation for all the dependent variables. 

LABPIII 

LPHI 

LSWEEP 

BLOCK DATA 


A variable for transferring the value of 
JPHI from one subroutine to another one 
that does not have JPHI as an argument . 
Index for general vax'iable t}>. 

Maximum number of iterative sweeps to 
be performed. 

MODE 

CALC 


Type of reaction. 

NA 

SPECE 


NS + 1. 

NCD 

REACT 


Index used during input of thei'mo- 
chemical data. 

ND 

REACT 


Index during computation of ID. 

NLM 

. . 

REACT 

■ ■' 

Number of elements. 

NS 

BLOCK DATA 

■ 

Number of chemical species. 

NSEI 

BLOCK DATA 

• ' . ■ 
. 

Index for first equilibrium-product- 
species . 

NSE2 

. 

BLOCK DATA 


Index for the last equilibrium-product- 
species. 

NSK 

BLOCK DATA 


Number of species whose concentrations 
are kinetically determined , 

NSK1 

CALC 


NSK + 1. 

NSM 

REACT 


NS + 1, 

NSOLVB 

BLOCK DATA 

- ■ « • 

Number of variable equations to be 
solved. 
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NAME 

LOCATION 

TYPE 

MEANING 

NS1 

MAIN 


First and last species numbers for 

NS2 

MAIN 

J 

computation of thermodynamic properties. 

NTDMA 

BLOCK DATA 


Maximum number of TDMA traverses along 
any one grid line. 

NTMAX 

BLOCK DATA 


Maximum number of iterations on 




temperature. 

NTRAV 

MAIN 


The number of traverses being pei’formed 
on a line at any sweep. 

NUMCOL 

BLOCK DATA 


Number of columns to be printed out. 

NX 

BLOCK DATA 


Number of X- const ant grid lines in the 
flow domain. 

NXMAX 

. •' 

' ' • 

BLOCK DATA 


Maximum number of X-constant grid lines 
that can be used to cover the flow 
domain without changing the dimensions 
of the variable arrays. 

NXM1 

CONST 


=NX-1 . 

NXM2 

CONST 


-NX- 2 . 

NXYG 

CONST 


=NX * NY, is the total number of 
locations where scalar quantities other 
than pressures are stored, 

NXYP 

CONST 


=« (NX-2)* (NY-2 ) , is the total number of 
locations where pressure values are 
stored. (Pressure values at flow 

boundaries are not stored), 

NXYU 

CONST 


-(NX-1)*NY, is the total number of 
locations where the X- component 
velocity values, U } are stored . 

NY 

BLOCK DATA 


Number of Y-constant grid lines in the 




flow domain . 
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NAME 

.... . 

LOCATION 

TYPE 

MEANING 

NYMAX 

BLOCK DATA 


Maximum number of Y-constant grid lines 
that can be used to cover the flow 
domain without changing the dimensions 
of the variable arrays. 

NYM1 

CONST 


-NY-1 . 

NYM2 

CONST 


-NY-2 . 

OXB 

BLOCK DATA 


• • ' 

Oxygen mass-fraction in B-stream. 

OXBRNT 

MAIN 

• 

Oxygen mass-fraction in fully-burnt 
gas . 

OXC 

BLOCK DATA 


Oxygen mass-fraction in C-stream. 

P. 

MAIN 

Array 

Pressure. 

PA 

CHEM 


Pressure. 

PDGSCN 

MAIN, 

CHEM 


Pressure * Gas constant,, 

PEXP 

BLOCK DATA 

Array 

Exponent on pressure in chemical- 
equilibrium calculations. 

PHAZ 

REACT 


Phase of species for which thermochemica 
data is read. 

PHI 

CHEM 


Temporary storage for (f-f ^ )/{l-f f) • 

PP 

COEFF 

Array 

Pressure-correction. 

PRB 

MAIN 


Mass fractions of (products +N2) in 
B-stream. 

PRC 

MAIN 


Mass fractions of (products +N2) in 
C- stream. 

PREEXP 

BLOCK DATA 


Arrhenius pre-exponential factor. 

PREFF 

MAIN 

Array 

Effective Prandtl/Schmidt number. 

PRESS 

BLOCK DATA 

•. , - : v * , 

Pressure. 
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NAME 

LOCATION 

TYPE 

PRL 

BLOCK DATA 

Array 

PRT 

BLOCK DATA 

Array 

R 

GEOM 

Array 

RDXG 

GEOM 

Array 

RDXU 

GEOM 

Array 

RDYG 

GEOM 

Array 

RDYV 

. GEOM 

Array 

RECTK 

CALC 


RELAXP 

BLOCK DATA 


REM I 


' 

REY 

WALL 


RE 

BLOCK DATA 


RFSTM 

MAIN 


RED IFF 

CHEM 


RHO 

MAIN 

Array 

RHOB 

MAIN 


RHOC 

MAIN 


RHOINF 

BLOCK DATA 


RHOP 

CALC 


RHOREF 

MAIN 


RHSM 

CALC 


RHSMP 

CALC 



MEANING 

Laminar Prandtl /Schmidt number. 
Turbulent Prandtl/Schmidt number. 
Radius . 

Reciprocal of DXG. 

Reciprocal of DXU. 

Reciprocal of DYG. 

Reciprocal of DYV. 

Reciprocal of TIC. 

Under-relaxation factor for pressure. 
=1 . 0 /EMIS2I-1 . 0 . 

Reynolds number. 

Radius of incoming fuel jet. 

1 . O/FSTOIM . 

Reciprocal of (HMAX-HMIN) . 

Density. 

Density of B-stream. 

Density of C-stream. 

Density of surroundings. 

Density. 

Reference density. 

Density * Molecular weight. 

RHSM* Density. 








NAME 

LOCATION 

TYPE 

MEANING 

RHSMSQ 

CALC 


RHSM* square of density. 

RHSQ 

CALC 


Square of density. 

RPREFF 

COEFF 


Reciprocal of Prandtl/ Schmidt number. 

RSLINE 

COEFF 

Array 

Algebraic sum of residual-sources at a 
given line for a given variable. 

RSCIIEK 

BLOCK BATA 


Convergence criterion for residuals at 
a line. 

RSMAX 

COEFF 


Largest of the magnitudes of residual- 
source sums of all the variables. 

RSMW 

REACT 

' 

. 

Reciprocal of SMW . 

RSREF 

MAIN 

Array 

Normalising factors for residual-errors. 

RSSUM 

' '' • . . 

COEFF 

Array 

Sum of residual sources for a given 
variable . 

RSXG 

GEOM 

Array 

Reciprocal of SXG. 

RSXU 

GEOM 

Array 

Reciprocal of SXU. 

RSYG 

GEOM 

Array 

Reciprocal of SYG. 

RSYV 

GEOM 

Array 

• 

Reciprocal of SYV. 

RV 

GEOM 

Array 

r-coordinates of the v-nodes. 

RVCB 

GEOM 

Array 

r-coardinates of the v-cell. 

RVSQ 

GEOM 

Array 

Square of RV. 

RVRS 

REACT 


Alphanumeric storage for ’REVE 1 , 

R1 

CALC 


Forward reaction rate. 

R1I 

BLOCK DATA 


Inner radius of inner tube. 

RIO 

BLOCK DATA 

■ - - * • • 

Outer radius of inner tube . 




1 ..4 -..X.. I A,-^Ju:- I * if tl 


» 

* 

NAME 

LOCATION 

TYPE 

MEANING 




+ 

R2 

CALC 


Backward reaction rate. 


R2I 

BLOCK DATA 


Inner radius of outer tube. 


R2M 

MAIN 


=0 . 5*(R2I+R20 ) . 


R20 

BLOCK DATA 


Outer radius of outer tube. 


S 

WALL, 


Shear stress coefficient. 



. SOURCE 


• 


SHALE 

WALL, 


Square root of S. 



SOURCE 




SHALF1 

WALL, 


Square root of S . 



SOURCE 




SIGMA 

BLOCK DATA 


Stef an-Boltzmannconstant . 


SM 

REACT 


Reciprocal of mean molecular weight 

* 




of mixture. 

/ . 

SMW 

REACT 

Array 

Molecular weight of species . 


SP 

SOURCE 

Array 

Part of linearised source term. 


SP1 

CHEM 


STOICH +1.0. 


STOICH 

BLOCK DATA 


Stoichiometric ratio. 


STORE 


Array 

Used for temporarily stored quantities. 


STXI 

BLOCK DATA 


Stanton number at inner surface of end 





wall . 


STX 0 

BLOCK DATA 


Stanton number at outer surface of end 





wall. 


ST1I 

BLOCK DATA 


Stanton number at inner surface of inner 





tube . 


ST10 

BLOCK DATA 


Stanton number at outer surface of inner 

."* . . 




tube. 


ST2I 

BLOCK DATA 


Stanton number at inner surface of outer 


. 
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NAME 

LOCATION 

TYPE 

MEANING 

ST20 

BLOCK DATA 


Stanton number at outer surface of outer 

su 

SOURCE 

Array 

tube . 

Part of linearised source term. 

3U.MX 

REACT 


Sum of x's*. 

SUMY 

REACT 


Sum of y ' s* . 

SUM1 

■ REACT 


Temporarily stored quantity. 

SXG 

GEOM 

Array 

The x-direction length of a cj)-cell. 

SXU 

GEOM 

Array 

The x-direction length of a u-cell, 

SYG 

GEOM 

Array 

The r-direction length of a (}>-cell. 

SYV 

GEOM 

Array 

The r-direction length of a v-cell. 

SO 

HOPS 

Array 

One-atmosphere, ideal gas entropy of 
species. 

SI 

CHEM 

Array 

Species mole-numbers averaged over four 
neighbouring nodes. 

S2 

CHEM 

Array 

Species mole-number. 

TACT 

REACT 

Array 

Activation temperature (E/R) for forward 
reaction. 

TACT2 

REACT 

Array 

Activation temperature (E/R) for back- 
ward reaction. 

TB 

BLOCK DATA 


Temperature of B-stream. 

TC 

BLOCK DATA 


Temperature of C-stream. 

TEM 

MAIN 

Array 

Absolute temperature. 

TEN 

REACT 

Array 

Exponent on temperature in forward 
reaction rate expression. 

TENLN 

REACT 


An (10). 






*x and y are Used for temporary storage of some quantities in 
subroutine REACT. 
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MEANING 


NAME 

LOCATION 

TYPE 




TEN 2 

REACT 

Arras 

THIRD 

REACT , 
OUTPUT 


THRM 

' REACT 


TINY 

BLOCK DATA 


TINYK 

BLOCK DATA 


TITLE 

BLOCK DATA 

Array 

TK 

CHEM 

. 

TK1 . . 
TK5 

HCPS 


TLN 

REACT 


TMAX 

BLOCK DATA 


TMIN 

BLOCK DATA 


TM1 

. REACT 


TM1 

CALC 


TM2 . . 

HCPS 


TM5 



TNY 

BLOCK DATi? 


TST1 

SPECE 


T1 

SOURCE 


T1 

REACT 


T2 

REACT 






Exponent on temperature in backward 
reaction rate expression. 

Alphanumeric storage for 'M* (third 
body in chemical reaction). 

Alphanumeric storage for ! THER ? . 

A small number. 

A small number for chemical-kinetics 
calculations. 

Alphanumeric storage to identify a 
dependent variable. 

Temperature . 

Temporarily stored quantities. 

Jin (temperature). 

Maximum temperature in the calculations. 
Minimum temperature in the calculations. 
Temporarily stored quantity. 

R1 - R2 . 

Temporarily stored quantities. 

Jin (TINYK). 

Temporarily stored quantity. 

Temporarily stored quantity (-PREEXP* 

• PRESS**2). 

^Quantities used during input of - 

thermochemical data. 





NAME 

LOCATION 

TYPE 

MEANING 





U 

MAIN 

Array 

Longitudinal velocity component. 

UB 

BLOCK DATA 


Velocity of B-stream. 

uc 

BLOCK DATA 


Velocity of C-stream. 

UINF 

BLOCK DATA 


Free stream u-velocity. 

V 

MAIN 

Array 

Radial velocity component. 

VINF 

BLOCK DATA 


Free stream v-velocity. 

VMIX 

MAIN 


• 

Specific volume of mixture. 

VOL 

GEOM 

Array 

Volume of a finite-difference cell. 

WAREA 

MAIN 


=0, 5(R20**2 - R2I**2). 

WB 

MAIN 

• 

Reciprocal molecular weight of B-stream. 

we 

MAIN 


Reciprocal molecular weight of C-stream. 

WMIX 

BLOCK DATA 


Molecular weight of mixture. 

X 

BLOCK DATA 

Array 

x-coordinates of the <}>-nodes. 

X 

CALC 

Array 

Corrections in chemical-kinetics 
calculations. 

XBAR 

REACT 


Average value of X. 

XMAX 

REACT 


Maximum x-value . 

XMIN 

REACT 


Minimum x value. 

XU 

GEOM 

Array 

x-coordinates of the u-nodes. 

Y 

BLOCK DATA 

Array 

r-coordinates of the efi-nodes. 

Y 

SPECE 

Array 

Logarithms of species mole-numbers. 

YBAR 

REACT 

. : , , , 

Average value of Y. 

' ■ 





1 ym 



ZK1 I . . 


LOCATION 

TYPE 

GEOM 

Array 

REACT 

Array 

HCPS 



MEANING 


Array r~coordinates of the v-nodes. 

Array Coefficients for calculation o 
chemical data. 

Temporarily stored quantities. 
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APPENDIX D 


LISTING OF THE OUTPUT FROM THE NASCO II PROGRAM 

■ " ■ ■ — — — Mil. — ■ I ■ ' I I ■ I ■■ ■■ I I ■ M'- 

Interpretation of the Output from NASCO II 

In this section the details of the output supplied with this 
report are provided to enable the reader to understand the 
output , 

The first item of print-out gives details of the problem 
specifying parameters, and is self-explanatory. 

The second item of print-out specifies the initial guessed 
fields of the dependent variables. Each field variable <f> is 
given in a table of the following form: 

— FIELD VARIABLE (<p ) 

y locations of 
grid for which 
value is printed 

I 

x locations of 

grid for which * ^ 

value is printed 


This item of printout is repeated at every IPRINT iterative sweeps; 
odd-numbered sweeps refer to sweeps in the positive-x direction 
and even numbered sweeps to sweeps in the negative-x direction. 

The third item of print-out gives details of the residuals along 
lines for the dependent variables, and also the sums of the 
absolute values of these residuals for the whole field. 

The residuals are normalised over-all balance quantities, 
departures of which from zero give information about the extent 
to which errors in the finite-difference equations remain to 
be eliminated. for details the reader is advised to refer to 
Appendix D of Reference 1 . 

The fourth item of printout gives the values of the de" indent 
variables at a particular monitoring location; in the present 
output at the node (3,3). 
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*************************************************** 
* * 

* 4 

* • 

* PREDICTION OF HYDRODYNAMICS AND 4 

* ' *[ 

* chemistry OF A TWO-CONCENTRIC-TUBE 4 


COMBUSTOR WITH ATTENTION 
TO POLLUTANT FORMATION 


THE NASCO II COMPUTER PROGRAM 
PRtPAREU BY 

CONCENTRATION. HEAT AND MOMENTUM LTD. 


NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 
NASA LEWIS RESEARCH CENTER 


CONTRACT NASW-3077 
APRIL 1978 


RESULTS FOR TEST CASE 


S.I. UNITS ARE USED THROUGHOUT 


*** *** * * * *************** *************************** 
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* t - s* r * 1 _!*. ... . .1 ; i £, ._...Ar.-. fefgSl g aBBg jgk-g^!lg 


FLOW CONDITIONS 

TURBULENT » KLT=2 
CHEMICALLY REACTING. 1NEKT=2 

geometry 


RF R1I RIO R2I R20 

1.00E-03 3.00E-03 3.50E-03 9.00E-03 1.05E-02 

ELI EL2 

2.00E-01 1.00E-02 

INLET CONDITIONS 

FLOW RATE OF FUEL. EMF 
FLOW RATE OF AIR. EMA 
VELOCITY OF FUEL STREAM. UB 
VELOCITY OF AIR STREAM. UC 
TEMPERATURE OF fuel STREAM. 
temperature of; air stream, t 

INLET PRESSURE, PRESS 
REYNOLDS NUMBER 
OVERALL EQUIVALENCE RATIO, E 
TOTAL MASS FLOW RATE. FLOWIN 


TB 


C 


ORAT 


1.4CSE-05 

3.600E-04 

• [ -I ; 

3.176E+00 

5.677E+00 

2.750E+02 

2.750E+02 

2.000E+05 

4.409E+03 

6.705E-01 

5.952E-05 
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polynomial COEFFICIENTS for thermodynamic properties. 

14 COEFFICIENTS ((Z<K»J.n»J=l»7)tK=lt2) FOR EACH SPECIES I 


N 


I.799E-01 

7«6l2E-06 -5.330E-09 


3.I76E-01 

I.787E-01 -1.556E-06 


4.005E+03 

2.975E-01 

NO 


1.063E-01 

4.460E-Q5 -1 * 763E-08 


2.248E-01 

1.348E-01 -1 • 139E-04 


3.298E+02 

9.990E-O2 

N02 


1.005E-0I 

5.491E-05 -2.306E-08 


2.896E-02 

7.519E-02 4 « 488E-05 


6.119E+01 

1.807E-0I 

N20 


1.075E-0I 

6.420E-05 -2.626E-08 


-3.897E-02 

5.950E-02 1.964E-04 


1.990E+02 

2.096E-01 

N2 


1.034E-01 

5.410E-05 -2.043E-08 


2.199E-01 

1.312E-01 -4 . 313E-G5 


-3.708E+01 

8.418E-02 

CH4 


9.367E-02 

6»,493E-04 -2.442E-07 


6.674E-01 

2.305E-01 -2.480E-84 


-8.324E+02 

5.404E-02 

02 


1.I32E-01 

2.30JE-05 -6.142E-09 


1.130E-01 

I.133E-01 -5.870E-05 


-3.274E+01 

1.345E-01 


1.342E-12 -7.325E-17 
3.B70E-09 -4.032E-12 


3.197E-12 -2.161E-16 
2.660E-07 -2.038E-10 


‘♦.321E-X2 “3.000E-I6 
1.453E-07 -2.077E-I0 


4.831E-12 -3.309E-16 
-1 • 54QE-07 5.061E-H 


3.563E-12 -2.328E-16 
8.296E-0B -2.257E-U 


4.225E-H -2.760E-15 
1.531E-06 -1.4I7E-09 


1.131E-12 -9.046E-17 
2.205E-07 -2.U4E-10 


4.OO6E+03 

1.499E-15 


3.275E+02 

5.305E-14 


4.978E*QI 

7.868E-14 


1.854E+02 

-1.832E-15 


-3.234E+01 

-8.059E-15 


-6.220E+02 

4.340E-13 


-3.756E+01 

6.736E-14 



CO 



1.065E-01 

5.316E-05 -2.067E-08 

3.7U0E-12 

-2.476E-16 

-5.006E+02 


2.266E-<U 

1.32SE-01 -b.7B0E-05 

1.318E-07 

-7.254E-11 

8.552E-15 


-5.12bE+02 

1 *055001 




C02 

1.014E-01 

7.040E-05 -2.016E-00 

5.167E-12 

-3.528E-16 

-1.U3E + 03 


-2.2H1L-02 

5.4S5E-02 1.905E-04 

-1.501E-07' 

4.549E-11 

1.438E-17 


-1.099E+U3 

2 . 203E-01 




H 

2.480E+00 

O.OnOE+OO o.oooe+oo 

O.OOOe+OO 

O.OOOE+OO 

2.527E+04 


-4,565t-0l 

2.4O0E+O0 O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

o.oooe+oo 


2.527E+04 

-4.565E-01 




H2 

1.538C+00 

2.53BE-04 2.611E-0Q 

-1.732E-11 

1.833E-15 

-4.352E+02 


-9.737E-Q1 

1.517E+0Q 1.320E-03 

-2.882E-06 

2.739E-09 

-8.99QE-13 


-4.905E+02 

-1.1'UE + OO 




H'20 






1.508C-01 

1.635E-04 -4.453E-08 

5.677E-12 

-2.691E-16 

-1.660E+03 


3.681E-01 

2.259E-01 -6.153E-05 

2.3U5E-07 

-1.645E-10 

4.480E-14 


-1.6O1E+03 

-1.791E-02 




0 

1.509E-01 

-1.722E-06 -1.939E-1U 

2.845E-13 

-2.730E-17 

1.827E+03 


3.075E-01 

1»842E-01 -1.024E-04 

1.513E-07 

“1 • Q02E-10 

2.432E-14 


1.822E+03 1.853E-01 
OH 

1.7HE-01 5.641E-05 -1.143E-08 8.0B9E-13 B.364E-18 2.314E+02 
3.200E-01 2.256E-01 -6.33BE-05 5.693E-00 1.100E-U -1.327E-14 
2.141E+02 2.903E-02 


ORIGINAL PAGE m 
OF POOR QUALITY 
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| REACTION MECHANISM 


1. 

N 

4 

NO 



= 

N2 

4 

0 



2. 

N 

4 

02 



s 

NO 

4 

0 



3. 

OH 

4 

N 



= 

H 

4 

NO 



4. 

H 

4 

N20 



: S 

OH 

4 

N2 



5. 

N20 

4 

0 



= 

no 

4 

NO 



6 . 

N20 

[ff 


4 

M 

r 

N2 

4 

0 

4 

M 

7. 

N 

' + 

0 

4 

M 

s 

NO 

4 


4 

M 

8. 

H02 

4 

0 



s 

NO 

4 

02 



9. 

M02 

4 


4 

M 

= 

0 

4 

NO 

4 

M 


RATE CONSTANT PARAMETERS 

RATE CONSTANT = A*T ++B+EXP ( -T ACT /T ) <T=TEMPCRATURE> 


forward rate backward rate 

b tact 

o.oooe+oo 3.786E+04 

O.oOUE+OO 2.087E+04 
O.OOOE+OO 2.898E+04 
O.OOOE+OO 4.047E+04 
O.OOOE+OO 3.422E+04 
O.OOOE+OO 6.573E+03 
O.OOOE+OO 7.488E+04 
O.OOOE+OO 2.393E+04 
O.OOOE+OO -2.950E+03 


NX NT NXMAX NYMAX 

10 10 25 20 

NTDMA lsweep RSCHEK CCHECK 

3 150 1.00E-Q2 5.00E-03 

FIELD VALUES OF U U 


FIELD VALUES OF U U 


Y(10)=9.000E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y< 

9)=8.000E-03 

-4.06E+00 

-4.0&E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

•4.06E+00 

O.OOE+OO 

Y ( 

G)=6.750E-03 

-4.06E+00 

-4.06L+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

O.OOE+OO 

Y < 

7 )=4 .750E-03 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

O.OOE+OO 

Y < 

6)=3.750E-03 

-4.06E+00 

-4.06E+00 

-4.06F.+Q0 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

-4.06E+00 

O.OOE+OO 

Y < 

5)=3.250E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y ( 

4)=2.750E-o3 

5.68E+0Q 

5.68E+00 

5.68E+00 

5.68E+00 

5.68E+00 

5.6BE+00 

5.68E+00 

5.68E+00 

O.OOE+OO 

Y ( 

3)=1.500E-03 

5. 68E+00 

5.6BE+00 

5.68E+00 

5.68E+00 

5.68E+00 

5.68E+00 

5.6BE+00 

5.68E+00 

O.OOE+OO 

Y ( 

2)=5.000E-04 

3.18E+00 

3.18E+00 

3.18E+00 

3.18E+00 

3.1BE+00 

3.18E+00 

3.18E+00 

3.18E+00 

O.OOE+OO 

YC 

1 ) = 0 , OOOE+OO 

3.18E+00 

3.18E+00 

3.10E+00 

3.1BE+00 

3.18E+00 

3.18E+00 

3.18E+00 

3.18E+00 

O.OOE+OO 


xuax» 

1 = 0.000 

2= 0.050 

3= 0.095 

4= 0.145 

5= 0.179 

6= 0.192 

7= 0.200 

8= 0.205 

9= 0.210 


A B TACT A 

1. 1.500C+10 O.OOOE+OO O.OOOE+OO 6.753E+10 

2. 5.998E+06 1.000E+00 3.172E+03 5.857E+09 

3. 5.998E+08 5.000E-01 4.028E+03 1.102E+11 

4. 7.996E+10 O.OOOE+OO 7.553E+03 3.842E+09 

5. l.OOOE+11 O.OOOE+OO 1.500E+04 2.895E+09 

6* l.OOOE+11 O.OOOE+OO 2.518E+04 2.676E+06 

7. 6.397E+10 -5.000E-01 O.OOOE+OO 4.&0OE+12 

8. 1.000E+10 O.OOOE+OO 3.000E+02 3.186E+09 

9. 1.099E+13 O.OOOE+OO 3.300E+04 1.532E+08 



v * 


X * 


to 

K* 

CO 


FIELD VALDES OF 
TV C 9ls9,000E-03 
TVf S)?7.375E-03 
TVf 7)=5.75OE-03 
TVf 6)s4,250£-03 
TVf S}=3.SOOE~03 
TVf 4)s5.O00£-o3 
XVI 3JsZ.125E-03 
YV( x.'-l .0006-03 
TV ( lJ=C,pO0£*O0 

XUXJ 


o.oqe+do 

O.DOE+QO 
O.OOE+OO 
0. OOE+OO 
0. OOE+OO 
O.OOE+OO 
O.OOE+OO 
O.OOE+QQ 
O.OOE+OO 


FIELD 
TflOJ 
rc 9j 
Tf 37 
Tf 7) 
Tt 6? 
Tf 5) 
Tt 4) 
Tf 3) 
Tf 2) 
Tf U 


VALUES OF EMTH 
=9. OQQE-03 2 
sO.OOOE-03 
=6.750E-Q3 
:4.750E-03 
=3.750£-03 
s3. 25 OE- 03 
—2 .750E- 03 
sl.SOOE-03 
=5.0OOE~O4 
sO.00OE.OO 


- 1 . 

-1. 

- 1 . 

- 1 . 

2 . 

- 2 . 

- 2 . 

- 9 . 

-9. 


756+02 

99E+05 

996+05 

996+05 

996*05 

756+02 

34E+04 

39E+09 

726*06 

72E+06 


O.OOEtOO 

0.001*00 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

O.00L4OO 

O.OOE4O0 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0.0OL+0O 

O.OOCfOO 

O.OGL+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

D.OOE+OO 

0.00t*00 

O.OOE.OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0.O0E+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

O.OOE+OO 

0.0OE40O 

o.oor+oo 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

O.OOE+OO 

0.00C40O 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

O.OOE+O 0 

0.0OE4O0 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

O.OOE+O'O 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

O.OOE+OO 

2s 0.030 

3s 0.070 

4= 0.120 

5= 0.170 

6s o.iae 

7= 0,197 


0 . DOE + 0 0 
1.93E+00 
1.22C+ 00 
9.6l£— 01 

o.ooe+oq 

0.0011*00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 


0.00Z*00 
►I « 66E+0ft 
-6.25E-Q1 
5.6BE-01 
1.39E+0O 
1.57E*0n 
1 • 02£>0n 
3.146-01 
o.ooc.on 


O.OOE+OO 
O.OOE+OO 
0.0DE+OO 
0 . 00 £*00 
O.OOE+OO 
O.OGE+OQ 
O.OOE+OO 
O.OOE+OO 
0 • OOE+QO 


3= 0.202 9= 0.207 10s 0.2JU 


2.75E+02 
-1.99E+05 
-1.99E+05 
-1. 996+05 
-1.99E+05 
2.75E+D2 
-2.34E+04 
■2.34F+04 
■4.72E+06 
•4.72L+06 


2.75E+02 
•1.99E70S 
•1.99E+05 
■1.99E+05 
•1.99E+05 
2.75E+02 
•2.34E+09 
■2.34F+09 
•4.72E+06 
■4. 726+06 


XtlXl 


1= 0.000 


FIELD 
YflOj 
Tl 91 
Tf S) 
Tf 77 
Tf 6) 
Tf 5) 
Tf 4J 
Tf 3) 
Tf 2J 
Tf 1) 


VALUES x 
s9 , 00QE-Q3 
S8.0QOE-03 
=&.75OE-03 

=4.750£-03 
s3.75Q£-03 
=3.250£-o3 
=2.7506-03 
=1.5006-03 
-5.0G0C-04 
sO. 0006+00 


FK 


3.74E-02 
3.74E-02 
3. 74 E- 02 
3.746-02 
3.746-02 
0.06 6*00 
0.006*00 
0.006+00 
i . 0011*00 
1.00E+00 


3.74E-02 
3.74E-02 
3.74E-02 
3.74E-02 
3.7HF-02 
0.006+GQ 
0 • OOE+QO 
O.OOE+OO 
l.OOE+OO 
l.OOE+OO 


PH 

3.746-02 
3.79 6-02 
3.74E-02 
3.79F-02 
3.74E-02 
O.OOE+OO 
O.OOE+OO 
O.OOE+OO' 
1.0 0E+ 00 
l.OOt+00 


XfIXJ 


1= 0.000 2= 0.030 i~ 0.070 


FIELD VALUES OF FUEL 
T f 10) 

Tf 9) 

Tf S) 

Tf 7) 

Tf 6) 

Tf 5) 


Tf 47 
Tf 3 J 
Tf 2J 
Tf 1) 


=9.0006-03 
=S.d0O6~d3 
=6. 7506-03 
=9.730E-03 
=3,7506-03 
-3.25OE-03 
S2.750E-03 
1.500C-03 
=3.00q£-O4 
=O.0OOF+OO 


00E-1Q 

OOE-IQ 

0QL-10 

0QE-10 

DOE-10 

OOE+UO 

OOE+OO 

OOE+OO 

OOE+OO 

qoe+oo 


1,00 £-10 
l.OOE-10 
1.006-10 
l.OOL-IO 
I.OOE-IO 
O.OOE.OO 
0.006+00 
O.OOE+OO 
I, OOE+OO 
l.OOE+OO 


fuel 

1.00E-10 
1. OOE-10 
1. COE-10 
1. 00E—1S 
1. OOE-IO 
O.OOF+OO 
0. OOE+OO 

o.ooe+oq 
1 .00(1*00 
X. OOE+QO 


XfIXJ 


1= 0.000 2= 0.030 


2.75C+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+07 

2.7SE+02 

-1.99E+05 

-1.99E+05 

-1.99E+0S 

-1.99E+05 

-1.99E+05 

-1.99E+03 

2.75E+02 

-1.95E+05 

-1.99E+05 

-1.99E+0S 

-1.99E+05 

-1.99E+Q5 

-1.99E+09 

2.75E+02 

-1.99C+05 

-1.99E+05 

-1.99E+05 

“1.99L+05 

-1.99E+03 

-1.99E+0S 

2.75E+02 

-1.99E+05 

•1-99E+05 

-1.99E+03 

-1.99E+05 

-1.99E+03 

-1.99E.04 

2.73E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+0? 

2.75E+02 

-2.34E+04 

-2.34E+04 

-2.34E+04 

-2.34E+04 

-2.34E+04 

-2.34E+04 

2.75E+02 

-2.34E+S4 

-2.34C+04 

-2.34E+04 

-2.34E+04 

-2.34E+04 

-2.34E.04 

2.75E+02 

-9.72E+06 

-4.72E+06 

-4.72E+06 

-4.726+06 

-4 . 72C+06 

-4.72E+0A 

2.75E+02 

-4.72E+06 

-4.72E+06 

-4.72E+06 

-4.726*06 

-4.72E+06 

-9.72E+0* 

2.75E+02 

4= 0,120 

5= 0.170 

6= 0.100 

7s 0.197 

as 0.202 

9= O.2O7 

10= 0,210 

3.74E-02 

3.74E-02 

3.79E-02 

3.746-02 

3.74E-02 

3.74E-02 

O.OOE+OO 

3.74E-02 

3. 74 E- 02 

3.74E-02 

3.74E-02 

3.79E-02 

3.74E-0? 

O.OOE+OO 

3.74E-02 

3.74E-02 

3.79E-02 

3.746-02 

3.74E-02 

3.74E-02 

O.OOE+OO 

3.74E-02 

3.74E-02 

3.79E-02 

3.74E-02 

3.74E-02 

3.74E— Op 

O.OOE+OO 

3.74E-02 

3. 74 E- 02 

3. 79 E- 02 

3.74E-02 

3.74E-02 

3.74E-0p 

O.OOE+OO' 

O.OOE+OO 

O.OOE+OO 

O.OQE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

l.OOE+OO 

l.OCE+OQ 

l.OOE+OO 

1.006+00 

l.OOE+OO 

l.OOE+OO 

O.OOE+OO 

l.OOE+OO 

l.OOE+OO 

l.OOE+OO 

l.OOE+OO 

l.OOE+OO 

l.OOE+OO 

O.OOE+OO 

4s 0.120 

5= 0.170 

6= o.iea 

7= O.I97 

as 0.202 

9s 0.207 

10s 0.210 

l.OOE-10 

I.OOE-IO 

1.0QE-1G 

l.OOE-10 

3.74E-Q2 

3.74E-02 

O.OOE+OO 

I.OOE-IO 

I.OOE-IO 

I.OOE-IO 

I.OOE-IO 

3.74E-02 

3.74E-02 

O.OOE+OO 

l.OOE-10 

I.OOE-IO 

i.noE-10 

1 .056-10 

3.74E-02 

3.74E-02 

O.OOE+OO 

I.OOE-IO 

I.OOE-IO 

I.OOE-IO 

1.906-10 

3.74E-02 

3.74E-02 

O.OOE+OO 

l.OOE-10 

I.OOE-IO 

I.OOE-IO 

1.006-10 

3.74E-02 

3.74E-02 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

o.ooE+eo 

O.OOE+OO 

O.OOE+OO 

0 . 65E+00' 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 itO 0 £♦ 0 0 

O.OOE+OO 

O.OOE+OO 

O.OOE.OO 

O.OOE+OO 

l.OOE+OD 

l.OOE+OO 

l.OOE+OO 

l.OOE+OO 

l.OOE+OO 

l.QOE.OO 

a.OOE+OO 

l.OOE+OO 

i.55E+i)C 

l.OOE+OO 

l.OOE+OO 

l.OOE+OO 

l.OOE.On 

O.OOE+OO 

4= 0.120 

5= 0.170 

ss o.iaa 

7= 0.197 

8s 0.202 

9s O.2O7 

10s 0.210 


O O 

II 

Ss 
;S 


a 
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FIELD VALUES OF 
t ( 10 >=9.n00E-03 
Yl 9|=8.nJ0E-03 
Y( 8 1 =fe • 750E-U3 
Yl 7)=4.750E-03 
Yl 6)=3.750E-03 
Yl 5>=3.250E-o3 
Y ( 4>=2.750E-a3 
Yl 3 ) =1 • 5Q0E-03 
Y ( 2 1=5. 000E-04 
Yl l>=O.OOOE+nO 

XI IX) 


FIELD VALUES OF 
Yll0)=9.000E-03 
Yl 9)=B.000E-05 
Yl 8)=6.750E-03 
Yl 7 ) = 4 • 750E-U3 
Yl 6)=3.750E-03 
Yl 5)=3.250E-03 
Yl 4 )=2.750E-03 
Yl 3)=1.500E-03 
Yl 2 J=5 • OOOE-04 
Y( 1 > = 0 • OOOE+Q 0 

XlIX) 


field values of 

Yl 101=9.000 E- 03 
Yl 9|=0.OOOE-O3 
Yl 8)=6.750E-03 
Yl 7»=4.750E-03 
Yl 6 1 =3 . 750E-Q3 
Yl 5l=3.250E-03 
Yl 4>=2.750E-03 
Yl 3)=1.5Q0E-03 
Yl 2 )=5. OOOE-04 
Yl l)=0.a00E+O0 

XI 1X1 


H — — N 


O.OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

l.OOE-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

n .ooe+oo 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0.O0E+00 

l.OOE-ZO 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

0*0 OE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE + OO 

0. i; E+00 

l.OOE-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 • OuE+OO 

0. OOE+OO 

0* OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

1.00E-20 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

0 • OOE+OO 

0. OOE+OO 

O.OOF+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

l.OOE-20 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

0 « OOE + OO 

0. OOE+OO 

0. OOE + OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

O.OOE+OO 

1.00E-20 

l.OOE-20 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+Oo 

0 • OOE+OO 

0. OOE+OO 

l.OOE-20 

I.OOE-20 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 • OOE+OO 

1.00E-20 

l.OOE-20 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

0 • 0 OE + OO 

l.OOE-20 

1 • 00F-2Q 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 •OOE+OO 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.18B 

7= 0.197 

8= 0.202 

9= 0.207 

10= O.21O 

rio -- 










0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

l.OOE-15 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

l.OOE-15 

O.OOE+OO 

O.QOEfOo 

O.OOE+OO 

0 • QOE+GO 

0 a 00E+00 

O.OOF+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

l.OOE-15 

O.OOE+OO 

0 • OOE+Oo 

O.OOE+OO 

0 • OOE+OO 

0. OOE+OO 

0 .OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

l.OOE-15 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 • 0 0 E + 0 0 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

l.OOE-15 

O.OOE+OO 


O.OOE+OO 

0 •OOE+OO 

0 • OOE + OO 

0. OOE + OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.ooe+oo 

O.OGE+OU 

O.OOE+OO 

X • 00E-15 

l.OOE-15 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

0 « OOE+OO 

1 • OOE-15 

l.OOE-15 

0. OOE+OO 

0. OOE+OO 

0, OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.oot+on 

O.OOE+OO 

O.OOE+OO 

l.OOE-15 

l.OOE-15 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 • OOE+OO 

1« 00E-15 

l.OOE-15 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+aO 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.202 

9 = O.2O7 

10= 0.210 


NO 2 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

l.nOE-20 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

0 •OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

l.OOE-20 

O.OOE+OO 

o.ooE+on 

o.oor+00 

0 • OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1. DOE-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 • OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

l.OOE-20 

O.OOE+OO 

O.OOE+OO 

O.OOe+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

l.OOE-20 

O.OOE+OO 

O.OOE+OO 

O.OOe+OO 

0 • OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

o.ooe+oo 

O.OOE+OO 

o.ooc+on 

O.OOE+OO 

0 • OOE+OO 

1.00E-20 

i.oor-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

0 • OOE+OO 

l.OOE-20 

1.Q0E-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

OvOOE+OO 

0« OOE+OO 

1.00E-20 

1 • 00E-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

0«00E+00 

1 • 00E-20 

l.OOE-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

3= 0.170 

6 = o.iaa 

7= 0.197 

8= 0.202 

9= O.2O7 

10= 0.210 
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FICLD VALUES OF H20 (120. 


T(10)=9.(lfl0E-03 

n. ooe+oo 

O.OOE+OO 

O.OOE+OO 

0 .OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.00E-20 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

Yl 

9)=O.0U0t-03 

o. ooe+oo 

O.DOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

l.DOE-20 

O.OOE+OO 

O.OOE+OO 

0 .OOE+OO 

T C 

SJ=6.750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 .OOE+0O 

O.OOE+OO 

1.00E-20 

O.OOE+OO 

o . OOE+On 

O.OOE+OO 

Yl 

7 l"4 .750E-03 

o.ooe+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.O0E-20 

O.OOE+OO 

O.QOE+Oo 

O.OOE+OO 

Yt 

6 )=3.75OE-03 

O.OOE+OO 

O.OOE+OO 

o.oor+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

l.nOE-20 

O.OOE+OO 

o. ooE+on 

O.OOE+OO 

Yt 

5)=3.250E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Yl 

<f )=2.750E-03 

O.OOE+OO 

1.00E-20 

i.oor-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

o.ooc+oo 

Yt 

3)5=1. 500E-03 

n.OOE+00 

1.00E-20 

I.OOE-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+’IO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

Yt 

2)=5.U00E-04 

O.OOE+OO 

1.00E-20 

1.00E-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o. ooe+od 

O.OOE+OO 

Yt 

1)=0. OOOE+OO 

O.OOE+OO 

1.00E-20 

1.00E-20 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o. ooe+od 

O.OOE+OO 


XI IX) 

Is 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0,188 

7= 0.197 

B= 0.202 

9s 0.?0 t 

10= 0.210 


FIELO VALUES OF 
Y C 10 )s9 ■ 00QE-03 

Uz 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7 39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

O.OOE+OO 

Yl 

9)=0.OOQE-O3 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7 „39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

O.OOE+OO 

Yt 

6)s6.750E-03 

7.39E-Q1 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

V.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

O.OOE+OO 

Yt 

7 )=4 .750E-03 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7-39E-01 

'.39E-01 

7.39E-01 

7.39E-01 

7.39E-0V 

O.OOE+OO 

Yt 

6(=3.750E-03 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.39E-0i 

O.OOE+OO 

Yl 

5>=3.250E-q3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Yt 

4)=2.750E-03 

7.68E-01 

7.68E-01 

7.SBE-01 

7.6BE-01 

7.68E-01 

7.68E-01 

7.6BE-01 

7.6BE-01 

7.6BE-01 

O.OOE+OO 

Yl 

3)=1.500E-03 

7.68E-01 

7.68E-01 

7.6BE-01 

7.68E-01 

7.68E-01 

7.68E-01 

7.68E-01 

7.66E-01 

7.68E-01 

O.OOE+OO 

Yl 

2 )s5 • OOOE-04 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o. ooe+od 

O.OOE+OO 

Yt 

1 )— 0. OOOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

0 . OOE+OO 

o. ooe+oo 

O.OOE+OO 


XtlX) 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.108 

7= 0.197 

6s 0.202 

9= O. 2 O 7 

10= 0.210 


FIELO VALUES OF 
Y 1 10 )s9. OQOE«03 

F — 

l.OOE-lO 

l.OOE-lO 

l.OOC-10 

l.OOE-lO 

l.OOE-lO 

1. OOE- 10 

l.OOE-lO 

3.74E-02 

3.74E.07 

O.OOE+OO 

Yt 

9 )=8 . 000E-03 

1.00E-1U 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

3.74E-02 

3.74E-02 

O.OOE+OO 

Yt 

8)=6.750E-03 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

3.74E-02 

3.74E-0? 

O.OOE+OO 

Yt 

7)=4.750E-03 

1.00E-10 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-10 

3.74E-02 

3.74E-0? 

O.OOE+OO 

Yt 

6)=3.750E-03 

1.00E-1U 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

l.OOE-lO 

3.74E-02 

3.74E-0? 

O.OOE+OO 

Yt 

5 ) =3 • 250E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 . ooe+oo 

O.OOE+OO 

Yt 

4)=2.750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

Yt 

3)=1.500E“03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

6. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

O.QOE+OO 

Yt 

2)=5. 000E-04 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1 . ooe+Od 

O.OOE+OO 

Yt 

1)=0. OOOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+OO 

1. OOE+Oo 

O.OOE+OO 


X(IX) 

1= 0.000 

2s 0 . Q3Q 

3s 0.070 

4= 0.120 

5= 0.170 

fes 0.188 

7= 0.197 

8= 0.202 

9S 0.20? 

10s 0.210 



►t? 0 

SB 

# > 

B H 

% £5 



to 


FIELD VALUES OF 

02 * 










Y(10)s9.000E-03 

7.36E-02 

7.36L-02 

7.3&F-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

2.23E-01 

2.23E-0i 

0 

Y ( 9 ) sB . 000C-03 

7.36E-02 

7.36E-02 

7.3GE-02 

7.3GE-02 

7.36E-02 

7.36E-02 

7.36E-02 

2.23E-01 

2.23E-01 

0 

Yt 6 )=6* 75UE-03 

7.3GE-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

2.23E-01 

2.23E-01 

0 

Y( 7 ) =4 . 750E-03 

7.36E-02 

7.36C-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

2.23E-01 

2.23E-0i 

0 

Y( $ J -3.750E-03 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

7.36E-02 

2.23E-01 

2.23E-0i 

0 

Y< 5 ) =3 • 250E-Q3 

0. OOE+OO 

0. OOE + OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0 

Y( 4I-2.750E-03 

2.32E-01 

2.32L-01 

2.32E-01 

2.32E-01 

2.3PE-01 

2.32E-01 

2.32E-01 

2«32E*01 

2«32t«0i 

0 

Y( 3 ) =1 •■500C-03 

2.32E-01 

2.32E-01 

2.32E-01 

2.32E-01 

2.32E-01 

2.32E-01 

2.32E-01 

2.32E-01 

2*32E-0i 

0 

Y ( 2)sb.0ODE-04 

0 .OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

o# ooe+oo 

o 

Y ( 1)=O.DOOE+00 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

0. OOE+OO 

o.ooE+on 

0 

X(IX> 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0,120 

5= 0.170 

6= o.ioa 

7= 0.197 

6= 0.202 

9= 0.207 

10 


FIELD VALUES Or 

CO 










Y(10)=9.000E-03 

0. OOE+OO 

0. OOE+OO 

o.oor+uo 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 

Y ( 9 ) ”8. 0 0 0E-03 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 

Yt B)-6.750 E-o3 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0* OOE+OO 

0, OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. QOE+OQ 

0 

Y( 7)=4.750E-03 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0.00E+0n 

0 

Y ( 6) = 3 .750E-03 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+od 

0 

Y< 5)-3.250E-o3 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 

Y( 4 ) =2 • 750E-03 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

0, 

Y( 3 ) =1 • 500E-03 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 


0 

Y 1 2 ) =5 .OOOE-04 

n. ooe+ou 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0, 

Y( 1 ) so . OOOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

0. OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

o.ooE+on 

0 , 

XIIX> 

Is 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.188 

7- 0.197 

8= 0.202 

9= 0.P07 

10: 


FIELD VALUES OF 

C02 










Y(1D)=9.dOOE-03 

ri, OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

0. 

Y< 9 ) -8 • OQOL-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. 

YC B)s6.750E-fl3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

0 , 

YC 7 )=4. 750E-O3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

o.ooe+oo 

0. 

Y( ft )=3*750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+Oo 

0 • 

Y ( 5) -3. 250 E« 03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0, 

Y( 4 ) =2* 750E-03 

U. OOE + OU 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 *00E-f On 

0. 

Y( 3)— 1.500E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 . 

Y ( 2 ) - 5 « OQQE-04 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+On 

0. 

Y 1 1)=0. OOOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. 

XUXJ 

Is 0.000 

2= 0.030 

3= 0.070 

4s 0.120 

5= 0.170 

6s 0.188 

7= 0.197 

8s 0.202 

9* 0.207 

10 s 


.OOE+OO 

.OOE+OU 

.ooe+oo 

.OOE+OU 
•00E*00 
.OOE+OO 
.QUE+OU 
.OOE+OO 
.OOE + OO 
•OOE+OO 

= 0.210 


•OOE+OO 
.OQE+QO 
•OOE+OO 
•OOE+OO 
•OOE+OO 
•OOE+OO 
•OOE+OO 
•OOE+OO 
i OOE+CO 
i OOE+OO 

: 0.210 


OOE+OO 
OOE+OO 
, OOE+OO 
OOE+OO 
OOE+OO 
OOE+OO 
OOE+OO 
OOE+OO 
OOE+OO 
OOE+OO 

0.210 


* 
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FIELD VALUES or H H 


Ytl0)=9.000E-03 

(1 . OOE+OU 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

T( 

9)=B.OOOL-03 

n. ooe+oo 

O.OOE+OO 

O.OOE+OO 

0 . OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

yi 

a>= 6 . 750 E- 0 i 

n. ooe+oo 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

yi 

7>=4.7S0E-r>3 

O • OQE+OU 

o.ooe+oo 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

yi 

6> = 3.750£-f)3 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

Yl 

5)=3.250E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+On 

O.OOE+OO 

Yl 

4>=2.750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y ( 

3)sl.500E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.QQE+On 

O.OOE+OO 

Y l 

2>s5.0OOE-O4 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Yl 

1>=O.OOOE+O0 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 


XllX) 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6 = 0.186 

7= 0.197 

8” 0.202 

9= 0.207 

10= 0.210 


FIELD VALUES OF 
Y(10)=9.000E-03 

H 2 — 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

Y ( 

9 ) -B • OOOE-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

Y( 

0)=6.750E-03 

n. ooE+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

Y l 

7)=4.750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0.00E+0n 

O.OOE+OO 

Y l 

6)=3.750E-n3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

u? 00 £.4 00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

Yl 

5l=3.250E-n3 

O.OOE+OU 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 .OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y ( 

4)=2.750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

Yl 

3)=1.500E-03 

n. ooe+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

Y< 

2J=5.000E-04 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

Yl 

1» = 0.000LX3£J 

O.OOE+OU 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OU 


X(IX) 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.168 

7= 0.197 

6= 0.202 

9= 0.207 

10s 0.210 


FIELD VALUES OF 

H20 

Y(10)=9.000E-03 

n. ooe+oo 

Y ( 

9»=a.OQ0E-03 

O.OOE+OO 

YC 

8)=6.750C-03 

O.OOE+OO 

Yl 

7l=4.750E-03 

O.OOE+OO 

Yl 

6)=3.750E-03 

O.OOE+OO 

It 

5|=3.250E-03 

O.OOE+OO 

Yl 

4>=2.750E-o3 

O.OOE+OO 

Y l 

3)=1.500E-03 

O.OOE+OO 

Y ( 

2 )s5. 0 0 OE- 04 

O.OOE+OO 

Yl 

llsO.OOOE+OO 

O.OOE+OO 


XUX) 

is 0.000 


H20 


O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

2= 0.030 

3= 0.070 

4= 0.120 


0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Q. OOE+OO 

O.OOE+OO 

5= 0.170 

6s 0.106 

7= 0.197 


O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OU 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

6s 0.202 

9s O. 2 O 7 

10s 0.210 


22 

*3 50 
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FIELU VALUES Of 0 o 


ruo)=y.oaoE-n3 

n. ooe+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

OiOOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Yt 

9)=u.000L-03 

G.COE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

Y( 

0»=6.750E-03 

n. ooe+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0 • OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y { 

7 J =4 . 750C-03 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y< 

6)=3.750t-03 

O.OOE+OU 

O.OOE +00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

Y ( 

5 ) =3 . 250E-03 

0 • ooc+uo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+90 

O.OOE+OO 

Y( 

4 ) =2 .750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+On 

O.OOE+OO 

Yt 

3)=1*500E*03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

Y( 

2)s5.r)00E-D4 

O.OOE+OU 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y< 

1>s0.q0UF+o0 

O.OOE+OU 

O.OOE+OO 

o.oor+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 


XtIX> 

Is 0.000 

2= 0.030 

3= 0,070 

4= 0.120 

5= 0.170 

6= 0.168 

7= 0.197 

a- 0.202 

9= 0.207 

10s 0.210 


FIELO VALUES Op 
Ytl0)=9.000E-03 

Oil 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y 1 

9 )=o • 000E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Y ( 

fl»=6.750E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Yt 

7l=4.750C-03 

O.OOE+OO 

O.OOE+OO 

0 . OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

Y ( 

6)=3.750E-03 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

Yt 

5>=3.250E-o3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

Yt 

4)=2.750E-03 

0. OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

Yt 

3) =1 .500E-03 

n. ooE+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

Yt 

2 J=5.000E-04 

n. ooe+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

O.OOE+OO 

Yt 

1 »=0.nOOE+00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 


XtlX) 

1= 0.000 

2= 0.030 

3s 0.070 

4s 0.120 

5= 0.170 

6s 0.160 

7= 0.197 

8s 0.202 

9S 0.207 

10s 0.210 


FIELD VALUES OF 
Ytl0|=9.000E-03 

PR 

1.67E-01 

1.87E-01 

1.67E-01 

1.87E-01 

1.87E-01 

1.07E-01 

1.87E-01 

O.OOE+OO 

O.OOE+OO 

O.OOE+OU 

Yt 

9 ) •000003 

1.87E-01 

1.87E-01 

1.87E-01 

1.87E-01 

1.87E-01 

1.87E-01 

1.B7E-01 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

Y ( 

8 ) =6 .75UE-Q3 

1.87E-01 

1.S7E-01 

1.87E-01 

1.87E-01 

1.87E-01 

1.87E-01 

1.S7E-01 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 

Yt 

7)=4.750E-03 

1.87E-01 

1.07C-01 

1.87E-01 

1.07E-01 

1.87E-01 

1.87E-01 

1.B7E-01 

o. ooe+oo 

O.OOE+OO 

O.OOE+OO 

Yt 

6>si.750E-03 

1.87E-01 

1.07E-01 

1.87E-01 

1.87E-01 

1.87E-01 

1.87E-01 

1.87E-01 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Yt 

5j=3.250E-(l3 

O.OOE+OU 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0. OOE+OO 

o.ooe+on 

O.OOE+OO 

Yt 

4 >=2.750E-n3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+oo 

0. OOE+OO 

Yt 

3>=1.500E-U3 

O.OOE+OO 

O.OOE+OO 

0 .OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

Yt 

2 1=5. U00E-04 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooe+on 

O.OOE+OO 

Yt 

l)=0,000E+00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+Oo 

O.OOE+OO 


XtlXJ 

Is 0.000 

2s 0.030 

3= 0.070 

4s 0.120 

5* 0.170 

6= 0.188 

7= 0.197 

as 0.202 

9= O.pOt 

10 s 0.210 


255 


Field values of tew tem 


YIX0)=9.000E-03 

1.64E+03 

1 . 64E 4-03 

1.6«ir+03 

1.64E+03 

1.64E+03 

1.64E+D3* 

1.64E+D3 

2.7SE+02 

2.75E+0? 

2.75E+02 

Y ( 

9|=B.000E-03 

1.64E+Q3 

1.64E+03 

1.6AE+03 

1.64E+03 

1.64E+G3 

1.64E+03 

1 .64E+03 

2.75E+02 

2.75E.0? 

2.75C+02 

YI 

8| =6.750E-03 

1.64E+03 

X.64E+03 

1.64E+03 

1.64E+03 

1.64E+03 

X.64C+03 

1.64E+03 

2.75E+02 

2.75E+0? 

2.75E+02 

Y ( 

7)=4.750E-t)3 

1.64E+03 

1.64E+Q3 

1.64E+03 

X.64E+03 

1.64E+03 

1.64E+03 

1.64E+03 

2.75E+02 

2.75E+0? 

2.75E+02 

Y( 

6)=-3.750C-03 

1.64E+03 

1 .64E+ 03 

1.64E+03 

1.64E+03 

I .64E+03 

1.64E+03 

1.64E+03 

2.75E+0Z 

2.75E+0? 

2.75E+02 

Y ( 

5)=3.250E-03 

P.75E+02 

2.75L+02 

2.75E+02 

2 . 75E+02 

2.75E+02 

2.75E+02 

2 .75E+Q2 

2.75E+Q2 

2.75C+0? 

2.75E+02 

Y ( 

M ) -2 . 750E-03 

2.75E+02 

2.75E+02 

2.7SE+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.73E+0 2 

2.75E+02 

2.75E+0P 

2.75E+C2 

YI 

3I=1.500E-03 

2.75E+02 

2.75C+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2. 75E+02 

2.75E+0P 

2.75E*02 

YI 

2 )sb . 000E-04 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+0? 

2.75E+02 

Yf 

1 )=0 • OOQE + O0 

2.75E+02 

2.75E+02 

2.75E+02 

2.75E+02 

2.7SE+02 

2.75E+02 

2.73E+02 

2.75E+02 

2.7SE+0P 

2.7SE+02 


XUX) 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.X2P 

J5= 0.X70 

6= 0.188 

7= 0.197 

8= 0.202 

9S O. 2 O 7 

10s 0.210 


FIELD VALUES Or 

p 










Y( 

9 )=H ■ 000E-03 

0 ■ OOE+OQ 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 



71 

8l=6.750E-n3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 



YI 

7>=4.750E-03 

O.OOE+OG 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOC+OO 

O.OOE+OO 



YI 

6)=3.75oC-o3 

O.OOE+OO 

O.OOE+00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 



YI 

5)=3.250C-o3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.DDE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOC+OO 

O.OOE+OO 


* 

YI 

4)=2.750£-03 

O.OOE+OU 

0 . 001. + 00 

O.OOE+OO 

O.OUE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 



YI 

3 )sl. 500C-03 

n.ooE+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 



YI 

2)=5.C00C-04 

n.ooE+oo 

O.OOE+OO 

O.OOF+OO 

O.OOE+OO 

0.00E*00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 




XIIX> 

2s 0.U30 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.202 

9= 0.207 



FIELD VALUES OF 

RHO 










Y 1 10 1=9 .00QE-03 

2.54E+00 

2.54E+00 

2.54E+00 

2.54E+00 

2.54E+00 

2.54E+00 

2.S4E+00 

2.54E+00 

2.54E+00 

2.54E+00 

YI 

9I=8.000E-03 

4.16E-U1 

4.16E-01 

4.16E-01 

4.16E-01 

4.16E-01 

4.16E-01 

4.16E-01 

2.45E+00 

2.4SE+00 

2.34E+00 

YI 

6 ) =6 .750E-03 

S.16E-0X 

4.16E-01 

4.16C-01 

4.16E-01 

4-16E-01 

4.16E-01 

4.16E-01 

2.45E+00 

2.4SC«0n 

2.34E+00 

YI 

7>s4.750C-03 

4 • 16E-0X 

4.16E-01 

4.16E-01 

4.16E-01 

4.16E-01 

4.16E-01 

4.16E-01 

2.45E+00 

2.45E*0o 

2.54E+00 

YI 

6 )s3, 750E-03 

4 . IfeE-Ol 

4.16E-01 

4.16E-01 

4.16E-01 

4-I6E-01 

4.16E-01 

4.16E-01 

2.45E+00 

2.4SE+00 

2.54E+0B 

Yf 

5)=3.250C-03 

2.45E+00 

2.45E+00 

2.45E+00 

2.45E+00 

2.45E+00 

2.45E+00 

2.45E+00 

2.45E+00 

2.45E*0n 

2.54E+00 

YI 

4 )=2 • 750E-03 

2.52E+QU 

2.52E+00 

2.52E+00 

2.52E+00 , 

2.52E+00 

2.52E+00 

2.S2E+00 

2.S2E+00 

2.S2E+0O 

2.54E+00 

YI 

3)=1.500E-03 

2.52E+00 

2.52E+00 

2.52E+00 

2.52E+00 

2.52E+00 

2.52E+00 

2.52E+00 

2.52E+00 

2.S2E+0D 

2.54E+00 

YI 

2»=5.000C-04 

1.40E+00 

1.40E+00 

1.40E+00 

1.40E+00 

1.40E+00 

1.40E+00 

1 • 40E+00 

1.40E+00 

1.40E+00 

2.54E+00 

YI 

1 ) -0 .OQOE+OQ 

1.4DE+00 

1.40E + 00 

1.40E+00 

1.40E+00 

1.40E+00 

1.40E+00 

l.uOE+lOO 

1.40E+00 

1.40E+00 

2.S4E+00 


XI1X) 

1= 0.000 

2= 0.030 

3s 0.070 

4s 0.120 

5= 0.170 

6= 0.X88 

7= 0.197 

8S 0.202 

9= 0.207 

10s 0.2l0 






to 

cn 

CD 


I II U ‘><»U !l> U 1 lit 


i ( » v j nouf -’is 

1 .J 9 E -05 

i .i9L-u3 

i.pr-o; 

1.1 iE-03 

r( 

oj-o.oooi -93 

1.19C-03 

1.191. -03 

1. 197-03 

1. 19L- 03 

v ( 

fl) = 6. 7501-03 

i.jyt-03 

i.i‘ir-03 

l.i ?r -os 

1.19E-03 

U 

7 )- M . 750i-*i3 

J .19E-04 

1.191-03 

l.lir-93 

1.19C-03 

Y ( 

f. >-3.75 It -OS 

1 .19E-04 

1.191-03 

1-191 -03 

1.19E-03 

ri 

c J)-3.^5ut -ni 

1 . 19E-03 

1.191-03 

1.191-03 

1.19E-03 

X ( 

'0=2. /50<>lI3 

1. 191-03 

1.191-03 

1 • X9f — 0.5 

1.19E-03 

ri 

3) = 1 .40(11 -Oi 

1 .VJt-Oj 

1.191-03 

1.191-03 

1.19E-03 

Y( 

?) = S.i>OOL-U't 

i. iyc-os 

1. 191-03 

1.191-03 

1.19E-03 

Y ( 

1 ) = o.tjOOHOO 

1.1 oc-os 

1.19C-03 

l-19r-03 

1 . 19E-03 


jC( J X J 

1 = O.UDu 

?.= 0.030 

3- 0.070 

9= 0.120 


1. 191-05 

1.191-03 

1. 19E-03 

1.19E-0J 

1. 191-03 

1-19C-03 

1.191 -03 

1.I9E-U3 

1. 19C-U3 

1. 191-03 

1.19E-03 

1.19E-03 

1. 191-03 

1.19E-03 

1 *191-03 

1 .19E-03 

1 • 19C-D* 

1.191-03 

1.19C-DJ 

1.19E-03 

1.19E-03 

1.19E-03 

1.19E-03 

1.19E-03 

1.19E-0J 

l.l9r-03 

1 .19E-03 

1.19E-03 

1.19E-0*, 

1.19E-03 

1.19E-03 

1.19C-03 

1.19E-03 

1.19E-03 

1.19E-0^ 

1.19E-03 

1.19E-05 

J. 191-03 

1.19E-03 

1 .191-03 

1.19E-0* 

1.19L-03 

1 • 19E-03 

U.19E-03 

1 -19E-03 

1.19E-03 

1.19E-0* 

1.191:- 04 

1 • 191-03 

1.19E-03 

1.19E-03 

1.19E-03 

1. 19E-0.3 

1.19C-03 

1.19E-03 

1 . 19E-03 

1 . 19E-03 

1.19E-03 

1.19E-03 

1. 191.-03 

5= 0.170 

6= 0.100 

7= 0.197 

fl= 0.202 

9= 0.?07 

10= 0.210 



t ‘ 


l 


hurt Oi m3;.. VAUJt-S III IWt-lIlL I 1* I JI'IJI 1 - 


i SWEEP 

U 

V 

ENjll 

F n 

fuel 

PP 


1 

l.glt. + Ol 

2.U1E.+O0 

2.o?e*oo 

3 . S0E-03 

5.691-02 

1 , 15E+01 


2 

5. 151 K00 

b. 901-01 

1 . 7BE-01 

0.10E-05 

1.501-02 

4.721+00 


3 

7.oar.ioo 

0.661-01 

1,131-QJ 

8.47E-05 

4.421-02 

3.341+00 


4 

2.811-01 

5.31L-01 

6.15t-0? 

6.97E-06 

2.401-03 

3.91E+00 


5 

6 .601-02 

2.761-01 

2.11L-0J 

5.20E-O5 

1 .811-04 

2.95E+00 


6 

1 .24r-01 

1.09L-01 

1.161-02 

1.62E-05 

1.021-03 

1.8QE+00 


7 

5.92C-03 

7.21E-U2 

1.33L-0? 

6.24E-06 

5.391-06 

1.18E+00 


a 

5.74F-02 

2.77E-02 

1.9BE-02 

4.12E-06 

2.34E-03 

O.45E-01 


9 

O.O3C-04 

3.531-02 

5.09L-03 

1.32E-06 

4.411-06 

7.36E-01 


10 

2,731-02 

2.321-02 

D.10E-03 

1.45E-06 

3.611-03 

S.44E-01 


11 

1.1 1C -03 

2.651-02 

3.581-03 

5.91E-07 

1.621-06 

5.13E-01 


12 

1.47E-02 

2.501-02 

4.551-03 

9.08E-07 

8.101-03 

4.39E-&1 


13 

1 . 26E-03 

1.90L-02 

1.04E-0? 

2.92E-07 

6.971-07 

3.55E-01 


in 

2.44E-02 

3.36E-02 

6 .861-03 

6.56E-07 

8. 911-03 

5.24E-01 


15 

I.95E-03 

1.371-02 

7.B21-03 

3.23E-07 

5.201-07 

2.45E-01 


Ik 

7.01E-03 

1 .491-02 

1.101-02 

8.16E-06 

9.75E-05 

2.68E-01 


17 

9.691-04 

0.211-03 

1.331-02 

1.49E-07 

2.511-07 

1.72E-01 


lti 

7.351-03 

8.421^-03 

4 .961-03 

8.30E-07 

3.90E-04 

1.71E-01 


13) 

6.51E-U4 

7.09E-03 

S.24t-03 

1. 81E-07 

2.50E-O7 

1.35E-01 


20 

4.531-03 

4.55E-03 

2.101-02 

2.17E-06 

3.041-04 

1 , O9E-01 


21 

2.50E-04 

4.02E-O3 

2.031-02 

1.91E-07 

3.681-07 

9.85E-02 


22 

2.2EE-03 

2. 76E-03 

2,30t-02 

2.51E-06 

1.161-04 

7.61E-02 


23 

1.97E-04 

3.52E-03 

5.311-03 

9.B4E-00 

1.871-07 

7.16E-02 


2'i 

1.55C-03 

1.70L-03 

1.041-02 

1.21E-06 

2.11E-04 

5.54E-02 


25 

2.701-04 

2.45E-03 

7.051-03 

2.05E-07 

3.811-07 

5.381-02 


26 

6.93E-04 

1.031-03 

6.071-03 

4.42E-07 

1.611-04 

4 . 49E-02 


27 

1.481-04 

1.881-03 

9.901-03 

2.53E-D7 

2.231-07 

4.24E-02 


28 

2.04E-04 

6.74E-04 

5.251-03 

5.U6E-07 

9,891-05 

3.48E-02 


?y 

3.19E-06 

1.51L-03 

1.241-02 

1.23E-07 

1.69E-07 

3.32E-02 


30 

1.83E-04 

4.52E-U4 

6.561-03 

5.36E-07 

5.39E-05 

2.76E-02 


31 

2.90E-05 

1.141-03 

1.371-02 

1.61E-07 

1.131-07 

2.621-02 


32 

4.84E-05 

3.10E-04 

B. 001-03 

5.83E-07 

2.23E-05 

2.24E-02 


33 

6.72E-06 

9.2DE-04 

1.441-02 

6.11E-08 

6.781-08 

2.111-02 

O O 

30 

1.73F-05 

2.54E-04 

9.011-03 

5.72E-07 

1.72E-06’ 

1.851-02 

" rV 

fmrnd 

55 

9.09E-06 

7 .521-04 

1.461-02 

1.41E-07 

1.121-07 

1 .84E-02 

o 

36 

2.69E-05 

2.U1E-04 

9.501-03 

1.16E-06 

1.Q3E-05 

1.58E-02 

Q & 

37 

2.4SE-06 

6.26E-04 

1.461-02 

2.04E-07 

1.591-07 

1.62E-02 


30 

3.44E-05 

1 • BSE-04 

9.621-03 

6.55E-07 

1.491-05 

1.37E-02 


33 

1.09E-06 

5.21E-04 

1.431-02 

1.18E-07 

1.131-07 

1.45E-02 

JO ^ 

<10 

4.371-05 

1.571-04 

9.591-03 

8.31E-07 

2.091-05 

1.201-02 

G 

41 

5.00E-06 

4.51E-04 

1.411-02 

1.98E-07 

2 . 05E-07 

1.31E-02 


42 

5.521-05 

1.501-04 

9.491-03 

0.61E-07 

2.341-05 

1.071-02 

G o 

4 5 

5.47E-06 

3.91E-Q4 

1.371-02 

1.23E-07 

6,981-08 

1.19E-02 

G tS 

4 4 

9.64E-D5 

1.33E-04 

1.881-02 

7.74E-07 

2.27E-05 

9.90E-03 

H r~ 

45 

2.801-06 

3.35E-04 

1.34E-02 

1.05E-07 

1.361-07 

1.08E-02 

K CO 

46 

4.95E-03 

1.24E-04 

1.061-02 

6.52E-07 

2.24E-05 

9.12E-03 


47 

2.50E-06 

2.92E-04 

1.311-02 

2.46E-07 

2.491-07 

9.90E-03 


40 

5.24C-05 

l.lBE-04 

1.811-02 

6.75E-07 

2.281-05 

8 .411-03 


45 

3.32E-06 

2.53E-U4 

1.271-02 

1.22E-07 

8.881-00 

9. 08E-03 



CO 

CJ1 

-o 


SWEEP 110 


50 


SWEEP No. 50 



ALGCLiKAlC SUH OF RESIDUAL SOURCES AT t ACM LINE— RSUNET IX , JRHI ) 


IX 

NO. TraVS 

U 

V CNIH 

FM 

FULL 

PP 

2 

I 

O.OOE+OO 

O.OOE+OO -7.01E-04 

1.99E-07 

4.35E-09 

O.OOE+OO 

3 

1 

O.OOE+OO 

2.75E-06 -1.19E-03 

-1.38E-07 

7.03E-08 

1.90E-04 

4 

1 

O.OOE+OO 

2.30E-06 -1. 74E-03 

1.99E-07 

1.80C-06 

2.30E-04 

5 

1 

3.01E-07 

1.99E-05 -4.81E-03 

-7.64E-0B 

2.21E-05 

9.91E-04 

6 

1 

t-4.65C“06 

-2.47E-05 -9.05E-03 

O.OOE+OO 

9.17E-0D 

4.94E-03 

7 

2 

-7.06E-0G 

-5.83E-06 -4.57E-05 

1.53C-08 

-1.53E-08 

7.03E-04 

a 

2 

4. 14E-05 

-2.34E-05 -3.76E-05 

-B.59L-09 

1.91E-08 

3.09E-04 

9 

2 

O.OOE+OO 

-3.4BC-05 -3.29E-05 

O.OOE+OO 

-2.01E-0B 

4.49E-04 

values AT MONITORING LOCATION < 3, 3> 





ISWEEP 

U 

V enth 

FM 

fuel 

P 


50 

6.26E+00 

-X.62E-03 -1.65E+05 

3. 79E-Q2 

3.79E-02 

-1.99E+01 




f 


259 


r 


i < 


$*&'*■ ul •I 1 -!-'"*.*- Ji.LVl. » ■> t *. I A f J| Hi J — 



ti 

V 

L«rn 

Fi« 

50 

b. 341-05 

1.141 -04 

1.761-02 

6.35C-07 

51 

2 . 201-06 

2.201-04 

1.241-02 

1 .391-07 

52 

4.4BL-05 

1.UK1-04 

1 .711-02 

6.831-07 

53 

5.041-06 

1.901-04 

1.201-02 

1.481-07 

54 

4.661-05 

1.021-04 

1.671-02 

5.761-07 

5b 

4.441-06 

1.671-04 

1.171-02 

1.461-07 

56 

4.54F-05 

1.031-04 

1.62t-g? 

5.75E-0 7 

5? 

9.911-07 

1.431-04 

1.141-02 

1.551-07 

53 

4.666-05 

1.061-04 

1.501-02 

4.731-07 

59 

3.141-06 

1.271-04 

1.101-02 

1. 111-07 

60 

4.771-05 

1.041-04 

1.531-02 

3.261-07 

61 

2.801-06 

1.121-04 

1.081-02 

1 .121-07 

62 

4.341-05 

9.441-05 

1.431-02 

1.491-06 

£3 

2. 581-06 

1.021-04 

1.041-02 

1.651-07 

m 

4 .201-05 

9. 201-05 

1.451-02 

3.931-07 

65 

2.951-06 

9.181-05 

1.021-02 

2. 191-07 

66 

4.011-05 

0.481-05 

1.401-02 

7. 961-07 

67 

4. 691-06 

3.461-05 

9.001-03 

1*501-07 

60 

4.331-05 

S. 501-05 

1.361-02 

3.201-07 

69 

3.191-06 

7.351-05 

9-571-03 

1.731-07 

70 

3.7BE-05 

7.62C-05 

1.321-02 

5.081-0? 

71 

3.231-06 

6.971-05 

9.321-03 

2.241-07 

72 

3.431-05 

6.061-05 

1.291-02 

6.931-07 

73 

2.711-06 

6.45E-05 

9.081-03 

2.47E-0? 

74 

3.651-05 

7.431-05 

1.251-02 

7.95E-07 

75 

4.911-06 

5.631-05 

8.O2E-03 

7.541-08 

76 

3.601-05 

7.401-05 

1.221-02 

9.35E-C7 

77 

2.371-06 

4.901-05 

B. 521-03 

7.541-00 

73 

3.461-05 

6.301-05 

1.161-02 

5.261-07 

79 

2.261-06 

4.551-05 

8.311-03 

1.331-07 

SO 

3.64E-05 

6. 901-05 

1.151-02 

2.34E-07 

61 

5.341-06 

4.331-05 

0. 071-03 

1.401-07 

32 

2.601-05 

6.501-05 

1.111-02 

B.71E-07 

S3 

1.641-06 

3.701-05 

7.861-03 

2.101-07 

09 

3.441-05 

6.001-05 

1.001-02 

4.211-07 

05 

9. 91 r -07 

3.741-05 

7.661-03 

2.46E-07 

06 

3.051-05 

6.131-05 

1.051-02 

1.091-06 

67 

4.911-06 

3.561-05 

7.411-03 

1.301-07 

BS 

3.341-05 

6.221-05 

1.021-02 

7.381-07 

09 

3.271-03 

4.541-05 

1.711-02 

3.26E-D7 

90 

3.331-05 

5.791-05 

9.931-03 

7.531-07 

91 

2.391-06 

3.961-05 

1.661-02 

0.021-08 

92 

3.241-05 

6.341-05 

9.651-03 

6.181-07 

93 

5.6er-06 

5.051-05 

2.611-02 

2.941-07 

94 

3.B0E-05 

5.791-05 

1.911-0? 

3.471-07 

95 

4.911-06 

4.831-05 

2.541-02 

2.651-07 

96 

2.901-05 

5.221-05 

1.671-02 

1.03E-06 

97 

3.571-06 

4.711-05 

2.47t-02 

2.091-07 

98 

2 .661-05 

4.621-05 

2.781-02 

0.421-07 

99 

3.921-06 

4.711-05 

2.401-02 

2.241-07 
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FUCl 

pp 

2.421-05 

7.821-03 

1.151-07 

6.341-03 

2.321-05 

7.171-03 

1.22t-07 

7.711-03 

2.261-05 

6.65E— 03 

1.751-07 

7.13E-03 

2.191-05 

6.321-03 

2.031-07 

6.58E-03 

2.151-05 

6. 041-03 

1.861-07 

6. 131-03 

1.981-OS 

5.73E-03 

7.261-08 

5. 741-03 

1.831-05 

5.381-03 

1.771-07 

5.351-03 

2.161-05 

5.141-03 


5.04E-03 

1.901-05 

4.62E-03 

1.131-07 

4.711-03 

1.92E-05 

4.561-03 

1.76E-07 

4.421-03 

1.741-05 

4.301-03 

2.311-07 

4.10E-03 

1.671-05 

4 . 02E-03 

2.031-07 

3.88E-03 

1.681-05 

3.901-03 

1.041-07 

3.61E-03 

1.701-05 

3.761-03 

6.881-08 

3.411-03 

1.491-05 

3.551-03 

1.771-07 

3.19E-03 

1.571-05 

3.431-03 

1.161-07 

2.901-03 

1.491-05 

3.26E-03 

2.171-07 

2.781-03 

1.521-05 

2.971-03 

2.66E-07 

2.65E—03 

1.571-05 

2.82E-03 

1.661-07 

2.54E-03 

1.301-05 

2.62E-03 

3.311-07 

2.441-03 

1.341-05 

2.472-03 

4.601-08 

2.331-03 

1.261-05 

2.39E-03 

2.971-07 

2.28E-03 

1.411-05 

2.261-03 

2.541-07 

2.20E-03 

1.021-05 

2.091-03 

1.731-07 

2.111-03 

i.irc-05 

1.91E-03 

1.711-07 

2.04E-03 
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Cl 
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IX 

wo. tkavs 

tl 

V 

LM I H 

rri 

FUtL 

2 

i 

-6.H9r-07 

0.U0L+00 

-3.47E-04 

-1.53E-00 

2.17E-09 

3 

l 

0. U0C»00 

1.63E-06 

-5.B1C-04 

4.5BE-D B 

3.86E-0B 

4 

i 

-1.3BL-U6 

4.U2E-06 

-P..4 9E-04 

-2.60E-07 

B.54E-07 

5 

i 

6.U9r-07 

3.99C-06 

-2.34E-D3 

-7.64E-00 

1.06E-05 

6 

i 

-4-74L-07 

-1.59L-06 

-4.42C-03 

4.5UE-tia 

3 • OfaE'Ofl 

7 

l 

-1.65C-06 

6.B6C-06 

-9.U7E-03 

3.06E-OB 

1.53E-08 

B 

l 

1.92C-05 

-1.02E-05 

-9.49E-03 

-2.4BE-0B -3.25E-08 

9 

2 

0.00L»U0 

-1.5SE-05 

-1.69E-05 

-1.62E-03 

2.77E-08 

values at mohitouing location t 3. 

3) 




ISWLfP 

U 

V 

EOT II 

FH 

FUEL 


10U 

6.26C+0U 

-1.62E-03 

-1.6bE405 

3.79E-02 

J.79E-02 


PP 

J.ooc+otl 

I .95 E- 00 
r,13E-05 
.31E-04 
.6<lE-04 
.53C-04 
.29C-04 
.35E-09 


P 

1.99E+01 


r < 


r r 
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■ 

1 &*l tP 

II 

V 

Llrtii 


FUEL 

PP 


100 

2.401-05 

4,501-05 

2 .711-02 

5.15E-07 

1,171-65 

1.831-03 

■ ■ 

3 01 

4,011-06 

4.42L-05 

2.331-02 

1.621-07 

1.411-07 

1,981-03 


102 

2. 37.1-05 

5. 421-05 

2.631-02 

8.39E-07 

1.111-05 

1.901-03 


iei 

0 * 101.— 06 

4.601-05 

2.271-0? 

4 .261-07 

3.461-07 

1.971-03 

• • . 

104 

2.31L-05 

5.B61-05 

2.561-02 

9.69E-07 

1.241-05 

1.91E-03 


105 

4.201- 06 

4.941-05 

2.201-02 

1.241-07 

1.341-07 

1.921-03 

■ 

10& 

1.041-05 

5.251-05 

2.491-02 

4.54E-07 

1.061-05 

1.311-03 

. 

107 

5.0/SE-06 

4.641-05 

2.141-0 2 

L. 591-07 

2,061-07 

1.371-03 


100 

2.57! -05 

4 • e61— 05 

2.421-02 

8.01E-07 

1.G31-05 

1.711-03 


100 

4.651-06 

4 .961-05 

2.001-02 

1.961-07 

2.541-07 

1.821-03 


110 

2.451-05 

5.361-05 

2.351-02 

4.011-07 

1.031-05 

1.701-03 


111 

4 • 131-06 

4.751-05 

Z.021-02 

2.361-07 

1.541-07 

1.78E-03 


112 

2.341-05 

5.471-05 

2.231-02 

5.381-07 

9,161-06 

1.671-03 


111 

2.151-06 

4.941-05 

1,961-02 

1.52E-07 

1.551-07 

1.751-03 


110 

2.51*1-05 

5.161-05 

2.211-02 

0.401-07 

9.761-06 

1.62E-03 

. 

Ui> 

3.451-06 

4 . 631-05 

1.911-02 

2.011-07 

1.651-07 

1.69E-03 

. ■ ■ . j 

116 

2.061-05 

5.301-05 

2.151-02 

3.631-07 

9.261-06 

1.591-03 


117 

3.251-06 

4.63L-05 

1.B51-02 

3.241-07 

2.731-07 

1.651-03 

? 

110 

1.551-05 

5.231-05 

2.091-02 

4.631-07 

0. 911-06 

1.521-03 


110 

4,671-06 

4.911-05 

1.791-02 

1.471-07 

1.311-07 

1.611-03 


120 

1.371-05 

5.961-05 

2.031-02 

6.01C-07 

9.521-06 

1.54E-03 


121 

5.511-06 

4.761-05 

1.751-02 

1. 111-07 

1.66E-07 

1.60E-03 

1 

122 

2.031-05 

5.691-05 

1.971-02 

5.62E-07 

9.17E-06 

1.531-03 


121 

2.671-06 

4.461-05 

1.701-02 

1. 471-07 

9,651-06 

1.561-03 


120 

1.051-05 

4.631-05 

1.911-02 

6.761-07 

9.011-06 

1.371-03 


125 

2. 561—06 

4.521-05 

1.651-02 

1.301-07 

1.441-07 

1.531-03 


126 

1.731-05 

4.631-05 

1.361-02 

1.061-06 

6.911-06 

1.351-03 


127 

5.3PE-06 

4.041-05 

1.601-02 

2.231-07 

2.441-07 

1.481-03 


126 

1.711-05 

4.651-05 

1,801-02 

5.761-07 

9.541-06 

1.341-03 

^ *r< 

12V 

3.321-06 

4.031-05 

1.551-02 

3.371-07 

2. 761-07 

1.451-03 


110 

1. 7VE-05 

4.711-05 

1.751-02 

7.531-07 

7.171-06 

1.211-03 


131 

3.921—06 

4.161-05 

1.511-02 

3. 891-07 

2.711-07 

1.42E-03 

ge i 

132 

2.271-05 

3.971-05 

1.701-02 

9.33E-07 

6.76E-06 

1.141-03 

133 

5.211-06 

4.051-05 

1.461-02 

1.751-07 

1.381-07 

1.351-03 

& £ ii 

130 

1.651-05 

3.401-05 

1.651-02 

5.601-07 

7.131-06 

1.101-03 

135 

3.921—06 

3.561-05 

1.421-02 

9.071-08 

1.991-07 

1,291-03 

§a 

136 

1.561-05 

3.391-05 

1.601-02 

6.471-07 

6.051-06 

1.091-03 

137 

3.161-06 

3.551-05 

1.361-02 

3.431-07 

2.931-07 

1.281-03 

i 

130 

1.517-05 

3.491-05 

1.561-02 

7.021-07 

7.531-06 

1.031-03 

139 

3.925.-06 

3.251-05 

1.341-02 

1.001-07 

9.741-06 

1.251-03 


140 

1.721-05 

3.921-05 

1,511-02 

4.131-07 

6.271-06 

1 • 061-03 


141 

5.061-06 

3.541-05 

1.301-02 

3.651-07 

1.971-07 

1.191-03 

142 

1.63E-05 

5.691-05 

1.471-02 

3.331-07 

6.081-06 

1.031-03 


143 

4.221*06 

3.341-05 

2.261-02 

2. 101-07 

2.211-87 

1.16E-03 


144 

4 . 621-06 

2.201-05 

2.421-02 

9.611-07 

7.141 -96 

9. 671-04 


145 

4.311-06 

2.611-05 

2.201-02 

1.371-07 

1.611-07 

1.101-03 


146 

4.351-06 

2.641-05 

2.351-02 

7.101-07 

4,941-06 

9.91E-04 


147 

4.651-06 

2.661-05 

2.141-02 

1.041-07 

6. 971-08 

1.101-03 


143 

3.231-06 

Z. 721-05 

2.291-02 

5.061-07 

6,601-06 

9.361-04 


14 V 

5.25E-D6 

2.661-05 

2.071-02 

2.751-07 

2.311-07 

1,101-03 
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IX 

NO. TKAVS if 

V EN III 

FM 

FUEL 

PP 

2 

1 

-6.H9t.-07 

O.OOE+OO -1.65E-0V 

-1.07E-07 

7. 48E-10 

O.OOE+OO 

3 

l 

-b.Ogf -07 

-6.26E-06 -2.75E-04 

-2.44E-07 

1.95E-0B 

6.47E-05 

4 

1 

o.oor+oo 

2.07L-06 -4.13C-04 

3.21L-07 

3.55E-07 

6.56E-05 

S 

1 

-2.15L-07 

-1.42L-06 -1.13E-03 

3.06L-06 

■I.76E-06 

2.65E-05 

6 

1 

-5.17E-07 

6.20E-07 -2.l3 t -03 

O.OOE+OO 

4. see-os 

2.16E-04 

7 

1 

-1.46E-06 

5.51E-06 -4.36E-03 

O.OOE+OO 

4.58E-08 

2.99E-04 

6 

1 

1.21E-06 

-1.19L-05 -4.5BL-03 

1.15E-00 

1.53E-08 

1.81E-04 

9 

1 

u.oor+oo 

-5.93E-06 -9.1SE-03 

3.2SE-08 

1.24E-08 

1.06E-04 

VALUES AT HOUITOKING LOCATION ( 3, 31 

ISWELP U V ENTII 

FM 

FUEL 

P 


15U 

6.26E+00 

-1.63E-03 -1.65L405 

3.79E-02 

3.79E-02 

-1.99E+01 

SU« 

OF ABS. 
I SWEEP 

VALUES OF HSLINLIIX.JPIIII- 

U V lnth 

FM 

fuel 

PP 


ISO 

4.77E-06 

3.37E-U5 2.22L-02 

7.47E-07 

5.25E-06 

9.59E-04 


FIELD VALUES Of U U 


Y 1 10 i — 9 • 000E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.noE+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 


Y< 9)=B.000E-03 

-4 • 51E+00 

-4.51E+00 

-4.62E+00 

-4.59E+00 

-1 • 12E+00 

-1.07E+00 

-1.56E+00 

-2.23E+00 

O.OOE+OO 


Y< 8)=6.750L-03 

-4.51E+00 

-4.51E+00 

-4.62E+00 

-4.60E+00 

-1.10E+00 

-9.28E-01 

-8.85E-01 

-9.75E-01 

O.OOE+OO 


Y 1 7)=4.750C-03 

-4.35E+00 

-4.35E+00 

-4.45E+00 

-4.44E+00 

-1.05E+00 

-6.96E-01 

-9.04E-02 

9.14E-01 

O.OOE+OO 


Y( 6 )=3 • 750C-03 

-4.17E+00 

-4.17E+00 

-4.24E+00 

-4.22E+00 

-1.01E+00 

-6.27E-01 

9.10E-02 

2.33E+00 

O.OOE+OO 


Y ( 5 ) =3 . 250E-|)3 

O.GOE+OO 

O.OOL+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

5.33E-17 

3.27E+00 

O.OOE+OO 


Y ( 4>=2.750E-03 

5.66E+00 

5.67E+00 

5.97E+00 

6.29E+00 

6.49E+00 

6.52E+00 

6.56E+00 

4.24E+00 

O.OOE+OO 


Yl 3 ) =1 .S00E-03 

5.6SE+00 

5.89E+00 

6.26E+00 

6.64E+00 

6 . 75E+00 

6.80E+00 

6.80E+00 

4.99E+00- 

O.OOE+OO 


Y ( 2 f =5 • O0 0L-04 

3.1HE+00 

5.93E+00 

6.36E+00 

6.77E+00 

6 • 86J-+00 

6.91E+00 

6.89E+00 

5.20E+00 

O.OOE+OO 


Y( l)=U.000f+00 

3.1HE+O0 

5.93E+00 

6 • 36E+ 0 0 

6.77E+00 

6 • 06^+0 0 

6.91E+00 

6.89E+00 

5.20E+00 

0 • OOE+OO 


XUUXI 

1= 0.000 

2= 0.050 

3= 0.095 

4= 0.145 

5= 0.179 

6= 0.192 

7= 0.200 

8= 0.205 

9= 0.210 


FIELD VALUCS OF 

v - — -- 










Y V t 9 )=9 • 0 00E-03 

U.00E+00 

0 .OOE + OO 

o.oor+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

o.ooE+on 

O.OOE+OO 

YVI G ) =7 • 37SE-03 

O.OOE+OO 

-4.98E-24 

-1.50E-04 

1.17E-04 

-4 . ICE— 03 

-2.15E-02 

-1.24E-01 

-2.47E-01 

8. 03E-0 1 

O.OOE+OO 

Y V ( 7)=5.750E-03 

O.OOE+OO 

-6.53E-24 

-4.09r-04 

-1.14E-05 

-5.34E-03 

-2.87E-02 

-1.52E-01 

-3.52E-01 

1.39E+ Do 

O.OOE+OO 

YVI 6»=4.?50E-03 

O.OOE+OO 

-2.86E-24 

-3.23C-04 

-1.95E-04 

-1.37E-03 

-1.24E-02 

-6.54E-02 

-1.20E-01 

1.55E+0O 

O.OOE+OO 

YVI 5)=3.500E-n3 

O.OOE+OO 

O.OOE+OO 

o.oor+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

2.27E-01 

1.50E+00 

O.OOE+OO 

YVI 4 > -3. OOOC -03 

n.ooE+ou 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

6.17E-01 

1.39E+00 

O.OOE+OO 

YVI 3 f =2. 125E-03 

O.OOE+OO 

-1.29E-02 

-1.63F-03 

-5.2BE-04 

2.16E-03 

1.77E-07 

4.34E-03 

3.81E-01 

1.07E+00 

O.OOE+OO 

YVI 2 ) =1 • UQ0E-03 

O.OOE+OO 

-3.89E-02 

-2.44E-03 

-4.02E-I14 

1.47E-03 

1.57E-04 

3.11E-03 

1.70E-01 

3.21E-01 

O.OOE+OO 

yvi i»=o.nooE+no 

O.OOE+OO 

0 .001 +00 

o .rjor+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

XI1X) 

1 = 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.202 

9= 0.207 

10= 0.210 


} -» 


Fit UJ VALUES (t| t 
tuoi='i.r*oar-Dj 
ye 9)=a .poet-r-i 
rt a ) =6 . 7501 -r>3 
YE 7 )='< • 75UI. -{J3 
Yl 6) = i.7‘>0E-03 
ye 5)=i.?juc -os 
71 4 )=2.780f.-03 
ye 3)=i.5(>oc-o3 
Yt 2>=b.u00f-04 
ye 1)=v.uq0f+oei 


rnii 

6.3RC+02 
-3.36E+U5 
-3.33E+U5 
-3.33E+U5 
-3.55E+05 
4.U9E+08 
-2.34E+04 
-2.34E+04 
-4.7«it + 06 
~4.72E+DG 


6.301 .02 
-3.3G£.(t5 
-3.33E+05 
-3.33E+05 
-3.35£+n5 
'I . B9t +02 
-1.42E+0S 
-1.84E .05 
-3.17E+05 
-3. 17t +05 


MTU- 

7.30F+O2 
-2.7rj( .05 • 
“2.C7r*05 ■ 
- 2 . 6 £ir + 05 - 
-2»71E.05 * 
5. HE +02 
-1.52r+05 - 
-l.&5f+05 - 
-1 • HOE +05 - 
-1. For +05 - 


7.63E+02 

2.13E+Q5 

2.10E+05 

2.10E+05 

2.13E+U5 

5.21E+02 

X.37E+03 

1.43E+Q5 

1.47E+05 

1.47E+05 


6.C&E+02 
-X.48E+05 
-1.47E+05 
-1.47E+D5 
-1.49E+0S 
4.54E+02 
-1.3IE+05 
•1.34E+0E 
■1.3GE+03 
■1 .36E-+Q5 


6.45F+02 

-1.19E+05 

-1.20E+05 

-1.20E+05 

-1.20E+05 

4.X2C+02 

-X.29E+05 

-1.32E+05 

-1.33E+05 

-1.33E+05 


6.29E+Q2 

■X.20E+O5 

■X«2XE+05 

•1.2XE+05 

■1.21E+05 

4.04E+02 

■X.28E+05 

■X.SDE+05 

•X.3XE+05 

■X.3XE+05 


6.23E+02 
-1 .23E+05 
■X .24E+05 
■1.24E+05 
■X.25E+05 
■1.26E+05 
•I.2eE+05 
•1 .30E+05 
•1.3XE+05 
•X.3XE+05 


&.20E+0? 
■1 .25E+05 
-1.26E+05 
■I.26E+05 
■X-27E+05 
'1.2 p E+0s 
■1.2ti+05 
■1.29E+0* 
-X.30E+05 
■I.30E+05 


6.19E+02 

6.1BE+02 

6.1BE+02 

6.1BE+02 

6.XBE+02 

6.10E+O2 

6-18E+02 

6.X7E+U2 

6.X7E+02 

fa.l7f+02 


1- O.OOU 2= 0,03d 3= 0.070 4= 0.X20 5= 0,170 6= 0.180 


0.197 8- 0.202 9= 0.207 10= 0.210 


f 1ELL) VALUES Of 
Y(lO)=9.QOUC-03 
YE 9J=ls.000F-O3 
YE B)=6>7S0C-d3 

YE 7)= < ».7b0t-03 
YE 6)=3.750E-03 
Yl 5J=3.250E-03 
YE 4)=2.75M -03 
Y ( 3)=1.500F-03 
Yt 2 1=5 .(OOF -34 
Y{ lf=U.(i(JUE. + 0O 


3.72E-02 

3.72E-02 

3.72E-02 

3.72E-02 

3.72E-02 

O.OBE+OO 

O.00E+UU 

O.OOE+OU 

l.OOE+OO 

l.OOE+OU 


3.72E-02 
3.72F-02 
3.72E-02 
3.72E-02 
3.72E -02 
0. ODE +00 
3.01E-02 
3.02E-02 
6.65E-92 
6.651-02 


HE 

3.72F-02 
3.72E-02 
3.72F-02 
3.72F-02 
3.72F-02 
O.OOE +00 
3 • &2T -02 
3.79E-02 
4 . 07F-02 
4.07C-02 


3.72E-02 

3.72E-02 

3.72E-02 

3.72E-02 

3.72E-02 

O.OOE+OO 

3.73E-02 

3.75E-02 

3.7BE-02 

3.7BE-02 


3.72E-02 

3.72E-02 

3-72E-02 

3.72E-02 

3.72E-Q2 

O.OOE+OO 

3.74E-02 

3.75E-02 

3.75E-02 

3-75E-02 


3.72E-02 

3.72E-02 

3.72E-02 

3.72E-02 

3.72C-02 

O.OOE+OO 

3.74E-02 

3.74E-02 

3.75E-02 

3.75C-02 


3.72E-02 

3.72E-02 

3.72E-02 

3.71E-02 

3.7XE-02 

O.OOE+OO 

3.74E-02 

3.74E-02 

3.74E-02 

3.74E-02 


3.72E-02 
3.72E-0 2 
3.72E-02 
3.71E-02 
3.70E-02 
3.70E-02 
3.72E-02 
3.74E-02 
3.74E-02 
3.74E-02 


3.72E-0P 
3.72E-0? 
3.72E-02 
3.72E-02 
3.72E-02 
3.72E-02 
3.73E-02 
3. 73E-0P 
3.74E-02 
3.74E-02 


3.72E-02 

3.72E-02 

3.72E-02 

3.72L-0* 

3.72E-02 

3.72E-02 

3.73E-02 

3.73E-02 

3.74E-02 

3.74E-02 



XE IX) 

1= O.OOU 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0 .188 

7= 0.197 

8= 0.202 

9= O. 2 O 7 

10= 0.210 

ri£LH values or i 

FULL — 









- 

YE 10) =9. OOOE -03 

9.13E-0B 

9.13E-08 

l.S5r-06 

4.55E-05 

1.56E-03 

3.57E-02 

3.71E-02 

3.71E-02 

3.72E-02 

3.72E-02 

T( 


9.13E-0B 

9.13E-O0 

1.85r-06 

4.55E-05 

1.56E-03 

3.57E-02 

3.71E-02 

3.71E-02 

3.72E-02 

3.72E-0 2 

Yl 

(i)=6.75UL-03 

.09L-OB 

Q.U9E-00 

1.80F-06 

4.44E-05 

1.52E-03 

3.56E-02 

3.7DE-02 

3.71E-02 

3.72E-02 

3.72E-02 

yt 

7)=4.750C-03 

B..2BE-0B 

8.2BE-08 

1.6/1 -06 

4.13E-05 

1.44E-03 

3.55E-02 

3.70E-02 

3.71E-02 

3.72E-02 

3.72E-02 

Yl 

f»)=3.750f -03 

a.iiE-ua 

8.11L-00 

1.63F -06 

4 • 026-05 

1.41E-03 

3.55C-02 

3.70E-02 

3.70E-02 

3.72E-0? 

3.72E-02 

Y( 

5)=3.250f-r3 

O.OUE+OU 

O.OOE+OO 

O.OOF+OO 

O.OOE+OO 

O.OOE+OO 

Q.OOE+OO 

O.OOE+OO 

3.70E-02 

3.72E-02 

3.72E-02 

YE 

4)=2.750r-03 

O.OOE+UU 

3.01E-02 

3.62F-02 

3.73E-02 

3.74E-02 

3.74E-02 

3.74E-02 

3.72E-02 

3.72C-02 

3.72E-02 

Yl 

3) = 1.80G£-(/3 

(l.OOE + OO • 

3.82E-02 

3.79C-02 

3.75E-02 

3.75E-02 

3.74E-02 

3.74E-02 

3.74E-02 

3.73E-02 

3.73E-02 

Y ( 

2)=5.030E-04 

l.OOE+OU 

6.65f-02 

4.07r-02 

3.78E-02 

3 • 75F.-02 

3.75E-02 

3.74E-02 

3.74E-Q2 

3. 74 E- 02 

3.74E-02 

Yl 

l)=«.OO0E+00 

l.OOE+OU 

6.65C-02 

4 . 0 IE-02 

3.70E-02 

3.75C-02 

3.7SE-02 

3.74E-02 

3.74E-02 

3.74E-0? 

3.74E-02 


XEIX) 

1= O.OOU 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.189 

7= 0.197 

B= 0.202 

9= O. 2 O 7 

10= 0.210 


a 
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HLLO VALULS Of jj u 


Yt 

10 )=9.0QUL-D3 

9.45L-15 

9.45L-J5 

2.>ir-m 

7.251-14 

5 .181-14 

2.281-15 

1.49E-16 

2.52E-17 

1.57E-17 

1.5 71-1/ 

Y( 

9)=B.000E-ni 

9.4 51-15 

9.4451-15 

2.9H-14 

7.251-14 

5.181-14 

2.2SE-15 

1.491-16 

2.521-17 

1.57E-17 

1.57C-17 

r< 

8)=6.750L-03 

9 . 971-15 

9.971-15 

3. 05f -19 

7.59E-14 

5.49E-U 

2.371-15 

1.74E-16 

2.86E-17 

1. 53E-17 

1.531-1 7 

Y t 

7 ) =4 • 75U1 -93 

•3.971-15 

9.9 71 -15 

3 - o *i r - x *♦ 

7.581-14 

5.901-14 

2.561-15 

2.311-16 

3.23E-17 

1.4eE-l7 

1.481-17 

Yt 

61=3.7501-03 

9.481-15 

9.48E-15 

2.091-14 

7.231-14 

5.86C-14 

2.601-15 

2.471-16 

2.47E-17 

1.18E-17 

1.181-17 

Y( 

5l=5.25UL-t<3 

O.OOE+OO 

0. 001 *00 

n.nor+oo 

0. 001+00 

0.00E+30 

O.OOE+OO 

0. OOE ♦ 00 

1.50E-17 

9.12E-18 

9.121-10 

Y< 

■4 j=2.75or -ns 

O.OOE+UO 

6 . Ml r -52 

? • 551 -29 

1.241-26 

6.071-24 

1.111-21 

1.24E-19 

7.36E-18 

6.78E-18 

6.781— 1*1 

Yt 

31=1.5001-05 

O.OOL+OU 

6.49L-32 

2.5?r-P9 

1.221-26 

5.80E-24 

9.15E-22 

7.31E-20 

2.231-16 

3.601-1* 

3.601-10 

Yt 

21=5.0001-04 

O.OOt+OU 

6.85L-32 

2.511-29 

1.21E-26 

5. 63E-24 

8.101-22 

5.28E-20 

1.15E-18 

2.541-18 

2.S4E-18 

Y< 

1)=U.0UUL + *J0 

O.OUL+UU 

6.B3E-32 

2.511-29 

1.211-26 

5.63E-24 

0.101-22 

5.281-20 

1.151-18 

2.54E-1B 

2.541-JB 


XllX) 

1 = o.oou 

2= 0.4)30 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0 . 11)8 

7= 0.197 

8- 0.202 

9= 0.207 

10= U.210 


11 ELD VALUES CJF 
Y ( 10 | =y .GOOL-03 

m — 

'l.iaE-06 

4.18E-06 

4.B3E-06 

4.38E-06 

l.e2E-06 

7.70E-08 

4.951-09 

8.241-10 

5.08E-ln 

5.081-lU 

Y ( 

91=0.0001-03 

4.18E-06 

4.181-06 

4.B3E-06 

4.30E-06 

1.S2E-06 

7.70E-08 

4.951-09 

8.241-10 

5.081-ln 

b.081-lU 

Y( 

0)=e.7b0t-05 

4.13E-06 

4.131-06 

4.Pir-06 

4.39E-06 

1.85E-06 

7.94E-08 

5.751-09 

9.321-10 

4. 961-ln 

4.961-10 

Tt 

7 )=4 .75 OE -05 

9.061-06 

4.06E-06 

4 . 79E -06 

4.44E-06 

1.93E-06 

8. 511-08 

7.611-09 

1.051-09 

4.791-ln 

4. 791-10 

T( 

6)=5. 7501-03 

4.0 IE- 06 

4.01E-06 

4.77E-06 

4.45E-06 

1.96E-06 

8.641-08 

8.111-09 

8.031-10 

3. 8ii-in 

3.811-10 

Yl 

5 ) =3. 250 F -03 

0.001+00 

O.OOE+OO 

0.001400 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

0.001+00 

4. Set- 10 

2. 94E-141 

2.941-10 

Yt 

4 1=2.7501 -1)3 

O.OOL+UU 

1.711-24 

7 . 24T -22 

3.691-19 

1.891-16 

3.521-14 

4.001-12 

2.391-10 

2.18E-1H 

2. 181- 10 

Yt 

3 1=1,5001-03 

0 . UOE+UU 

1.70E-24 

7.10F-22 

3.60E-19 

1.791-16 

2.691-14 

2.34E-12 

7.1 61-11 

1.161-ln 

1.161-10 

Yt 

21=5,0001-04 

O.OOE+UO 

1.77E-24 

7.001-22 

3.54E-19 

1.731-16 

2.551-14 

1.681-12 

3.69E-11 

8.131-11 

6.131-11 

Yl 

1 ) =0 • 0001+00 

O.OOE+OO 

1 .771-24 

7.001-22 

3.54E-19 

1.731-16 

2.551-14 

1.681-12 

3.69E-11 

8.131.1) 

8.131-11 


XtlX) 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.20 2 

9= O.pQ? 

1U= 0.210 


FIELD VALUES OF 

HOP 





_ _ 





Y U0)=9.00OF-0j 

2.581-08 

2.581-08 

2.561-08 

2. 051-OB 

9.481-09 

3.991-10 

2.56E-11 

4.261-12 

2.631-1? 

2.63E-12 

Yt 

9)=Q. 0001-03 

2.501-08 

2.581-00 

2.56F-0B 

2. 05E-08 

9.401-09 

3.991-10 

2.561-11 

4.261-12 

2.631-1? 

2.63E-12 

Yt 

£U = 6. 750E-D3 

2.521-00 

2.52L-0 8 

2.531-08 

2.051-08 

9.551-09 

4.111-10 

2.97E-I1 

4.821-12 

2.57E-1? 

2.571-12 

Yt 

7 ) = 4 . 7501-03 

2.481-00 

2.40E-O6 

2.52F-08 

2. 071-08 

9.841-09 

4.391-10 

3.931-11 

5.45E-12 

2.481-1? 

2.481-12 

Yt 

61=5.7501-03 

2.471-00 

2.47r-00 

2.52F-0P 

2. 091-08 

1.0OE-O8 

4.451-10 

4.1 91—1 1 

4.151-12 

1.971-1? 

1.971-12 

Yt 

51=3.2301-03 

O.OOL+OU 

o.ooc+oo 

o.oor+oo 

0.001+00 

0.001+00 

O.OOE+OO 

0.001+00 

2.521-12 

1.521-1? 

1.521-12 

Yt 

4 ) = 2, 7501-03 

O.OOE+OO 

8.851-27 

3.75F-24 

1.911-21 

9.771-19 

1.821-16 

2.071-14 

1.24E-12 

1.151-1? 

1.151-12 

Yt 

3)=1. 5001-03 

0.001+00 

8.831-27 

3 • 6BF-24 

1.871-21 

9.271-19 

1.501-16 

1.211-14 

3.71E-13 

5.981-13 

5.98E-15 

Yt 

?)=5.000E-n4 

o.ooc+oo 

9. 191-27 

3.621-24 

1.031-21 

8.94E-19 

1.321-16 

8.691-15 

1.911-13 

4.201-13 

4.201-15 

Yt 

U = O.OOOE + OU 

0,001+00 

9.191-27 

3.62F-24 

1.U3C-21 

8.941-19 

1.321-16 

8.691-15 

1 . 911-13 

4.201.13 

4.20C-15 


Xl ix> 

1= 0.000 

2= U . q30 

3= 0.070 

4= 0.120 

5= 0.170 

6= o.inu 

7= 0.197 

8= 0.202 

9= 0.207 

10= 0.210 


f i 


4 
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I ELI) VALUES OF 

r t to i = 9 . 0001-03 

n?o - — — 

6.441-09 

6 • UAL - 09 

8.131 -09 

1.01E-0B 

9.101-09 

3.911-10 

2.54E-11 

4.311-12 

2.601-1? 

2.681-12 

Yt 

9)=b.utiut -oj 

6.441-09 

6. 'fit -119 

ils 1 3F -09 

1.01E-03 

9.101-09 

3.911-10 

2.541-11 

4.311-12 

2.601-1? 

2.601-12 

i ( 

tt)=6.750C -|13 

6.511-09 

6.511-09 

8 .P21-U9 

1.021-08 

9.311-09 

4.031-10 

2.961-11 

4.871-12 

2.621-1? 

2.621-12 

rt 

■71=4. 7501 -03 

6.511-09 

6.5U -09 

fl • 21 F-09 

1 . 021-08 

9.491-09 

4.311-10 

3.92C-11 

5.511-12 

2.521-1? 

2.521-12 

rt 

61=3. 750E -03 

6.451-09 

6.45F -09 

0.12r-09 

1.011-08 

9.471-09 

4.371-10 

4.191-11 

4.21E-12 

2.021-1? 

2.021-12 

r< 

51=3. 2501-03 

11.0 01 + 00 

0.001+00 

n.oor+oo 

G. 001+00 

0.001+00 

0.001+00 

0.001+00 

2.561-12 

1.561.1? 

1 .-561-12 

Y t 

41=2.7501-03 

U.UOl+UU 

1.111-26 

4.(101-24 

2.131-21 

1.041-18 

1.691-16 

2.121-14 

1 .261-12 

1.161-1? 

1.161-12 

Yt 

31=1,5001-03 

a.oot+uu 

1.121-26 

4.361-24 

2.10E-21 

9.951-19 

1.571-16 

1.251-14 

3.801-13 

6. 151-13 

6.151-13 

Y( 

21=5.0001-04 

n.ooE+ou 

l.l'Jf.-Pfi 

4.351-24 

2.001-21 

9.661-19 

1.391-16 

9.031-15 

1.961-13 

4.331-13 

4.331-13 

Y< 

i i=u.oaui+ou 

o,uof.+ou 

1 . 191-26 

4.351-24 

2.001-21 

9.661-19 

1.391-16 

9.031-15 

1.961-13 

4.331-13 

4.33E-13 


XtlXl 

1= o.oou 

2= 0.030 

3= 0.070 

4= 0.12U 

5= 0.170 

6= 0.188 

7= 0.197 

0= 0.202 

9= 0.?07 

10 s U .210 


HELD VALUES OF 

IIP 


N2 








YtlG)=9. 0001-03 

7.39L-01 

7.39E-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

Y ( 

9 1=8. 0001-03 

7 .391-01 

7.39E-01 

7.391-01 

7.39E-01 

7.39E-01 

7.391-01 

7.39E-01 

7.39E-01 

7.39E-01 

7.391-01 

Y( 

81=6.7501 -03 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7-391-01 

7.39C-01 

7. 391-01 

7.39E-01 

7.39E-01 

7.391-01 

Yt 

71=4.7501-03 

7. 391-01 

7. 391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7 .391-01 

7.401-01 

7.391-01 

7.391-01 

Yt 

6>=3.750F -03 

7.391-01 

7.391-01 

7.39F-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7 .401-01 

7.39E-01 

7.391-01 

Yl 

51=3.2501-03 

O.OOl+OU 

0. 001+00 

0.(101 + 00 

0.001+00 

O.OOE+OO 

0.001+00 

0.001+00 

7.401-01 

7. 391-01 

7.391-Ql 

Yt 

4 J-2.75UE-UO 

7.601-01 

7.451-01 

7 . 40F-01 

7.391-01 

7.391-01 

7.391-01 

7.39E-01 

7.391-01 

7.391-01 

7.391-01 

Yt 

31=1.5001-03 

7.601-01 

7.39L-01 

7. 391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7.39E-01 

7.391-01 

rt 

21=5.0001-04 

O.OOE+OO 

7.17F -01 

7.371-01 

7.391-01 

7.39E-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

7.391-01 

Yt 

11=0.11001+00 

n. ooi+uu 

7.171-01 

7.371-01 

7 .391-01 

7.39E-01 

7.39E-01 

7.391-01 

7.391-01 

7.39E-01 

7.39E-01 


X(IX> 

n o.oou 

P- 0.1130 

3= U.070 

4= 0.120 

5= 0.170 

6= 0.100 

7= 0.197 

8= 0.202 

9= 0.?07 

10= 0.210 


FIELD VALUES 01 
Y ( 1 G 1 =9 .00 UF.-03 

F 

9.131-08 

9.13L-08 

1.851-06 

4.551-05 

1.561-03 

3.57E-02 

3.71E-02 

3.711-02 

3.721-02 

3.72E-02 

Yt 

9l=O.0U0L-03 

9 . 131-08 

9.131-00 

1.051-06 

4.551-05 

1.561-03 

3.57E-02 

3.711-02 

3.71E-02 

3.721-02 

3.721-02 

Yt 

U)=6. £501-03 

0.09E-08 

8.89L-08 

1.801-06 

4.441-05 

1.521-03 

3.561-02 

3.701-02 

3.71E-02 

3.721-02 

3.721-02 

Yt 

7)=4. 7501-03 

8.281-08 

0.20C-OS 

1.671-06 

4.131-05 

1.441-03 

3 • 55E-02 

3.701-02 

3.711-02 

3.72E-0? 

3.72E-02 

rt 

6>=:S.7S0E-03 

8.1 IE-08 

6.111-00 

1.631-06 

4 .021-05 

1.41E-03 

3.551-02 

3.701-02 

3.701-02 

3.72E-02 

3.72E-02 

rt 

5) = 3..'50C-n3 

P.OOE+OU 

o.oor-foo 

0. 001+00 

o.oni+oo 

0.001+00 

0.001+00 

O.OOE+OO 

3.70E-02 

3.72E-0? 

3.721-02 

Yt 

M )=2.750L-03 

(1.001 + 00 

3.011-02 

3.621-02 

3.73E-02 

3.74E-02 

3.741-02 

3.741-02 

3.721-02 

3.72E-0? 

3.721-02 

Yt 

3)=1 .50UL-03 

ll.OOl+UU 

3.621-02 

3.791-02 

3.7SE-02 

3.75C-02 

3.741-02 

3.74E-02 

3.741-02 

3.731-0? 

3.731-02 

rt 

21=5.0001-04 

l.oot+ou 

6.651-02 

4.071-02 

3.701-02 

3.751-02 

3.751-02 

3.741-02 

3.741-02 

3.741-0? 

3.7HE-02 

Yt 

11=0.0001+00 

l.OOE+OU 

6.65L-02 

4 .071-02 

3.701-02 

3.751-02 

3.751-02 

3.74E-02 

3.74E-02 

3.74E-0? 

3.741-02 


X 1 1 X 1 

ii 0,000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0,170 

6= 0.168 

7= 0.197 

8= 0.202 

9= 0.?07 

10= U.210 
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1 It Mi V/tl ilC 5 ' 01 
Yl l(1|=9.Q00f-03 

(V 

7.40E-02 

7.43E.-02 

7.411C-02 

7.49E-U2 

0.10E-02 

2.17E-01 

2.?3E-01 

2.23E-01 

2.23E-01 

2.23E-01 

Y ( 

y )=8.uuor-n3 

7.4ll£~02 

7.4Br -02 

7.4jf -02 

7.49E-02 

0.10E-02 

2.17E-01 

2. 23E- 01 

2.23C-01 

2.23E-01 

2.23E-01 

tl 

Ui=u.75I)L-03 

7.48E-02 

7.481-02 

7.48L-02 

7.49E-02 

8.09E -02 

2.17E-01 

2.23E-01 

2.23E-01 

2.23E-01 

2.23E-01 

Yl 

7)=4.73UE-03 

7.48E-02 

7.481-02 

7.40F-O2 

7.49E-02 

8.05r-02 

2.17E-01 

2.P3E-01 

2.23E-01 

2.2JE-01 

2.23E-01 

Yt 

61=3.7b0E-03 

7.40E-02 

7.40L-02 

7.4flr-02 

7.49E-02 

6.04E-02 

2.17E-01 

2-23E-01 

?. 23E-01 

2.23E-01 

2.23E-01 

tl 

Sl-i.ftbOt-ilJ 

a.uoC+ou 

II.OOL+OO 

o.hoe foo 

O.CIQE + OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

2.23E-01 

2.23E-01 

2.23E-01 

Y 1 

M)=2./5or-na 

2.32t-01 

2.25[-01 

2.24T-01 

2.23E-01 

2.23E-01 

2.23E-01 

2.P3E-01 

2.23E-01 

2.23E-01 

2.23E-01 

Y< 

3i=i.booc-o3 

2.32E-01 

2.23E-0.1 

2.23E-01 

2.23E-01 

2.23C-0X 

2. 23E-0 1 

2-23E-01 

2.23E-01 

2.23L-01 

2.23E-01 

Yt 

?)=b. 0001-04 

O.OOE+OU 

2.17L-01 

2..">3r-01 

2.23E-01 

2.23E-01 

2.28E-01 

2.23E-01 

2.23E-01 

2.23E-01 

2.23E-01 

Yt 

1 1 = 0.4001. *UU 

o.ouE+uu 

2 . 172-01 

2.23F-H1 

2.23E-01 

2.23E-01 

2.23E-01 

2.23E-01 

2.23E-01 

2.23E-01 

2.23E-01 


X 1 1 X I 

1 = O.UOO 

2= 0.030 

3= 0.070 

4= 0.120 

S= 0.170 

6= 0.108 

7= 0.197 

8= 0.202 

9= 0.207 

10= 0.210 


FIELD VALUES Or 
Y f 10 1=9. U OOF. -03 

CO - 

1.13E-05 

1.13L-0S 

1.62F-05 

2.20E-05 

1.97C-05 

4.3BE-12 

2.85E-13 

4.82E-14 

2.99E-14 

2.99E-14 

Yt 

91=8. OOOC-Oi 

1.13E-U5 

1.13C-05 

1.62E-05 

2.20E-05 

1.97E-05 

4.38E-12 

2.85E-13 

4.82E-14 

2.99E-14 

2.99E-14 

rt 

81 = 6. 7bOF - 03 

1. l5E-0b 

l.lbr-05 

1.E.5E-U5 

2.24E-05 

2. 01 C- 05 

4.51E-12 

3.32E-13 

5.45E-14 

2.92E-14 

2.92E-14 

rt 

7 1 = 4 . 7bOL -03 

l.l5E-0b 

1.15E-0S 

1.65C-05 

2.24E-05 

2.06E-05 

4.B1E-12 

4.39E-13 

6.17E-14 

2.82E-14 

2.82E-14 

Yt 

6)=3.75ur-A3 

1.13E-0S 

1.13L-05 

1.62C-Q5 

2.20E-05 

2.05E-05 

4. 88E-12 

4.69E-13 

4.70E-14 

2.25E-1U 

2.25E-14 

Yt 

bl=3.250f-;j3 

tl.UOE+UU 

O.OOL+OD 

o.oor+oo 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

2.86E-14 

1.74E-14 

1.74E-14 

Yt 

4 )=2. 7bUt-03 

O.OOE+OO 

5.05E-20 

5.05r -20 

5.05E-2O 

5.85E-20 

5.85E-20 

1.96E-16 

1.40E-14 

1.29E-14 

1.29E-14 

Yl 

3 )=i .bOOL -03 

O.OOE+UO 

5.0SL-20 

5.05F-20 

5.B5L-20 

5.85E-20 

5.85E-20 

1.20E-16 

4.24E-15 

6.U1E-H 

6.81E-1S 

Yt 

2 )=S , 000E-04 

O.OOE+OU 

5.85E-20 

5.85E-20 

5.85E-20 

5.B5E-20 

5.85E-20 

7.62E-17 

2.17E-15 

4.79E-15 

4.79E-15 

Yt 

ll=U.nOUL+OU 

n.uoE+oo 

5.05E -20 

5.A5r-20 

5.05E-20 

5.85E-23 

5.85C-20 

7.62E-17 

2.17E-15 

4.79E-IS 

4.79E-lb 


X11X1 

1= 0.000 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.202 

9= 0.207 

10= U.2lO 


FIF1 
tt : 

.0 VALUES or 
1 0 1=9. flOOE-03 

C02 

1.02E-U1 

1.02E-01 

1.02r-01 

1.02E-01 

9 .78E— 02 

4.12E-03 

2.60E-04 

4.53E-05 

2.81E-0S 

2.81E-05 

Yl 

9 1=8. OOOL-U3 

1.02E-01 

1.02E-01 

1.02E-01 

1.02C-01 

9.78E-02 

4.12E-03 

2.68E-04 

4.53E-05 

2.61E-0«V 

2.81E-0S 

Yt 

61-1*. 750L-03 

1.0?E-01 

1.02L-01 

1.02C-01 

1.02E-01 

9.79E-02 

4.25E-03 

3.12E-04 

5.13E-05 

2.75E.05 

2.75E-0S 

Yt 

71=4.7b0E-03 

1.02C-01 

1.02E-01 

1.U2E-01 

1.02E-01 

9.81E-02 

4.52E-03 

4.13E-04 

5.B0E-05 

2.65E-0S 

2.65E-03 

Yt 

6)=3.7b()E-03 

1.02E-01 

1.021-01 

1 • 02E-U1 

1. 02E-01 

9.82C-02 

4.59E-03 

4.41E-04 

4.42E-05 

2.12E-DB 

2.12E-05 

rt 

5)=3.2S0L-f<3 

O.OOE+OU 

O.OOt +00 

O.OOt +00 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

2.69C-05 

1.63E-0S 

1.63E-05 

Yt 

4)=2.750C-(t3 

O.OOE+OO 

5.50E-11 

5.50E-13 

5.50E-11 

5.50C-11 

5.50E-11 

1.84E-07 

1.32E-05 

1.21E-0«t 

1.21E-05 

Yt 

3 )=1 .bOOL-03 

O.OOE+OU 

5.501 -11 

5.50E-11 

5.50E-11 

5.50E-11 

5.50E-H 

1.13C-07 

3.98E-06 

6.40E-0+; 

6.40E-0& 

Yl 

2 )=5. nOOE-04 

O.OOE+OU 

5.50L-11 

5.50E-11 

5 .bOE— 11 

5.50E-11 

5.50E-11 

7.17E-08 

2.04E-06 

4.51E-0+, 

4.51E-06 

Yl 

1 J = 0. (lOOt ♦ 00 

O.OOE+OU 

5.5DE-11 

5.S0F-11 

5.50E-13 

5.50E-11 

5.5UE-11 

7.17E-0B 

2.04E-06 

4.S1E-0* 

4.51E-06 


XI 1X1 

1= O.UOO 

2= 0.030 

3= (1.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

B= 0.202 

9= O. 2 O 7 

10= U.21U 
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I II 10 VALUES 0| |( H 


Yt 

10 )=':>. QOOC-lM 

l .‘IJt -09 

1.921 - 09 

3.331 -09 

5.29E-09 

4.550-09 

3.650-10 

2.370-19 

4.010-20 

2.490.20 

2.490-20 

Y I 

9 l=:i.«00l -03 

i.9?l-09 

i.92r -it') 

3. J3T -09 

5.290-09 

4.550-09 

3.650-18 

2.370-19 

4.010-20 

2.490-2(1 

2.490-20 

Yt 

8)=b./50E-03 

1.97L-D9 

1.97F-U9 

3.010-09 

5. >410-09 

4.68E-C9 

3. 750-ia 

2.760-19 

4 . 530-20 

2.430-20 

2.430-20 

YC 

7>=4. 7500-1)3 

i.9?l-09 

1.97F-09 

3.40C-09 

5.'tl0-09 

>4 . 050-09 

4.000-18 

3.650-19 

5.130-20 

2.350-20 

2.350-2U 

Yl 

61=3.7500-03 

1.920-09 

1.92L-09 

3.320 -09 

5.200-09 

4.830-09 

4 .060-18 

3.900-19 

3.910-20 

1.870-20 

1.870-20 

Yt 

5)=3.250C-n3 

o. out. mo 

O.UOI *00 

o.ooc+oo 

0 • 000+00 

o.oor+co 

o.ooe+oo 

0.000400 

2.380-20 

1.44E-20 

1.44E-20 

Yt 

•1 )=2, 7501 -03 

ti.ooo+ou 

4.06E -26 

•1 . ii(.r-26 

4.060-26 

4.060-26 

4.86E-26 

1.630-22 

1.170-20 

1. 070-20 

1. 07E-2U 

Yt 

3 |=l.500L-03 

o.uuo+uu 

*1 .U6F -26 

0 .ot,r-26 

>4 • 060-26 

4.060-26 

4.860-26 

9.960-23 

3.520-21 

5.660-21 

5.660-21 

Yt 

21=5.0000-04 

o.ouo+uu 

4.861 -26 

>4.060-26 

>4.060-26 

4.860-26 

4.860-26 

6.340-23 

1.800-21 

3.900-21 

3.980-21 

Yl 

l)=U.30UE+t|U 

(I.OOL + UU 

4.86E.-26 

>4.060-26 

4 ,060-26 

4.660-26 

4.860-26 

6.340-23 

1.800-21 

3.900-21 

3.980-21 


X(IX1 

1= o.uou 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.202 

9= 0.207 

10= U.21U 


ritub VALUES or 
Yt 101=9.0000-03 

11? 

5.420-07 

5.420-07 

7,4 30-07 

9.690-07 

8 .730-07 

1.200-12 

7.770-14 

1.310-14 

B.15E-1S 

B. 150-15 

Yt 

9)=8.000E-03 

5.420-07 

5. 420-07 

7.430-07 

9.690-07 

8.730-07 

i. 200-12 

7.770-14 

1.310-14 

8.150-15 

8.150*15 

Y t 

8) =6. 7500-03 

5.510-07 

5*510-07 

7.530-07 

9.U20-07 

0.800-07 

1.230-12 

9.040-14 

1 .490-14 

7.960-15 

7.96E-15 

Yl 

7 1=4 • 750L-03 

0.51E-07 

5.510-07 

7.520-07 

9.010-07 

9.070-07 

1.31E-12 

1.20E-13 

1.6B0-14 

7.690-15 

7.69E-15 

Yt 

61=3.7500-83 

5.430-07 

5.430-07 

7.420-07 

9 • 660-07 

9.050-07 

1.330-12 

1.28E-13 

1.280-14 

6.130-15 

6,130-15 

Yt 

5 )=3 . 2500-03 

(t. 000 + 00 

O.OOL+OO 

0. 000+00 

0.080+00 

0.000+00 

0.000+00 

O.OOE+OO 

7.00E-15 

4.730-15 

4.73E-15 

Yt 

4)=2.75nr-l]3 

0.000+00 

1.590-20 

1.590-20 

1.590-20 

1 . 590-20 

1.590-20 

5,345-17 

3.820-15 

3.510-15 

3.510-15 

Yt 

31=1.5000-03 

11.000+00 

1.590-20 

1.590-20 

1.590-20 

1.59E-20 

1.590-20 

3.260-17 

1.150-15 

1.85E-15 

1.850-15 

Yt 

21=5.0001 -04 

tl. 000+00 

1.59r-20 

1 . 590 -20 

1.59E-20 

1.590-20 

1.590-20 

2.080-17 

5.910-16 

1.310-15 

1.310-15 

Y C 

D=o. (jour 4-00 

(1. 000+00 

1.590-20 

1.590-20 

1.590-20 

1.590-20 

1.590-20 

2.080-17 

5.910-16 

1.31E-15 

1.31E-15 


xtixi 

1= 0.000 

2= 0.030 

3= 8.070 

4= 0.120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.202 

9= 0.?07 

10= u.210 


FIELD VALUES Or 
Y(10)=9.fi00t-I)3 

112(1 

8.360-02 

B.36F-02 

8.36E-02 

0.350-02 

0.01C-02 

3.300-03 

2.190-04 

3.71E-05 

2.300-06 

2.300-05 

Yl 

91=8.0000-03 

8.360-02 

0. 3&L-D2 

8.360-02 

8.350-02 

8.010-02 

3.3QE-03 

2.190-04 

3.710-05 

2*300-05 

2.300-05 

Yt 

0 1 =b , 750L-D3 

. 0.360-02 

a. 361-02 

8.360-02 

0.35E-02 

8.020-02 

3.480-03 

2.550-04 

4.20E-05 

2.25E-05 

2.25E-05 

Yt 

7)=4.750L-33 

6.360-02 

0.361-02 

8.560-02 

0.35E-02 

8.040-02 

3.700-03 

3.38E-D4 

4.75E-05 

2.170-05 

2.170—05 

Yt 

6 1 =3. 750E -03 

8.360-02 

0. 360-02 

8 . 360-02 

8.350-02 

8.040-02 

3.760-03 

3.610-04 

3.620-05 

1.730-05 

1.730-05 

Yt 

51=5.2501'.- 13 

n.ooo+uu 

O.OOL+OO 

o.oor+oo 

O.OOE+OO 

O.OOE+OO 

O.OOC+OO 

0.000+00 

2.200-05 

1.340-05 

1.340-05 

Yt 

4)=2.750F-,)3 

O.ODO+OU 

4.501-11 

4.50E-11 

4 . 500—1 1 

4.500-11 

4.500-11 

1.510-07 

1.080-05 

9.91E-06 

9.910-06 

Yl 

3)=1.50CF-nJ 

0 . UOE+UO 

4.500-11 

4.500-11 

4.500-11 

4.50E-11 

4.500-11 

9.220-08 

3.260-06 

5.240-06 

5.240-06 

Yt 

21 =5. OOOL — 04 

tl.OOE+OU 

4.50E-11 

4.50F-11 

4.500-11 

4.500-11 

4.500-11 

5.870-08 

1.670-06 

3.690-06 

3.690-06 

Yt 

l)=l).uOUL + 0U 

0. uuc+ou 

4.501 -11 

4.500-11 

4 . 500-11 

4.500-11 

4.500-11 

5.870-08 

1.670-06 

3.690-06 

3.690-06 


xtixi 

1= o.oou 

2= 0.030 

3= 0.1)70 

4= 0,120 

5= 0.170 

6= 0.188 

7= 0.197 

8= 0.202 

9= O.?07 

10= 0.210 


O o 
to 




to 

Oi 

00 


II LU VDUI6S OF 

riin)=v.i/ 0 UL-nj 

0 

I.27L-07 

1.27C-07 

2.23C-07 

3.596-07 

3.00E-07 

1.39C-16 

1.23E-17 

2.08E-18 

1.29E-1A 

1.29L-1U 

ri 

9)=U.0(I0E -U3 

3 .276-0 / 

1.2/1-07 

2.236-07 

3.59E-07 

3.08E-U7 

1.89C-16 

1.23E-17 

2.0BE-18 

1 . 29E-1 A 

1.29E-10 

y< 

7306-15 

J .30t-U7 

1 .306 -07 

2,296-07 

3.606-07 

3.1BE-07 

1.95C-16 

1.436-17 

2.35E-1B 

1.26E-1H 

1.26L-1« 

ri 

71=4.7506 -03 

1 .306-07 

1. 301-07 

2.28F-07 

3.606-07 

3.29E-C7 

2.06)6-16 

1.906-17 

2.666-10 

1.22E-1* 

1.226-18 

Yl 

61=3.7306-03 

1.27C-U/ 

1.276.-07 

2.236 -07 

3.596-07 

3.2BE-C7 

2.11E-16 

2.03E-17 

2.03E-18 

9. 72E-14 

9.726-19 

y< 

31=3.2569 -i|3 

0. 006+00 

O.UOE,OD 

O-OOf + 00 

0.006,00 

0 .OOE+OO 

0.006,00 

0.00E*OO 

1. 246-18 

7.50E-19 

7.50E-19 

ri 

<0=2. 1506 -63 

0.006+UU 

? . 526 -?<l 

2.526-24 

2.52E-24 

2. 526-24 

2.52E-24 

6.47E-21 

6.06E-19 

5.56E-19 

5.566-19 

r ( 

3j=l.’>00r-05 

0.006+UU 

2.526-24 

2.52F-24 

2.52E-24 

2.526-24 

2.526-24 

5.17E-21 

1.83C-19 

2.94E-19 

2.946-19 

rt 

21 = 3. 1)006-04 

1) • OOE + UU 

2.526-24 

2.52F-24 

2.5HE-24 

2.52 t-24 

2.52E-24 

3.29E-21 

9.36C-20 

2.07E-19 

2.076-19 

U 

1 ) = U.(|U 0 [ «ou 

O.OOE+OU 

2.52F.-24 

2.526-20 

2.52E-24 

2.526-24 

2.52C-24 

3.29E-21 

9.36E-2Q 

2.07E-19 

2.U7C-19 


XC IX) 

o.uou 

2= 0.6)30 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.108 

7= 0.197 

8= 0.202 

9= 0.207 

10= 0,210 


Flli.n vnLllCS OF 
Y 6 101=9, 0 UDE-03 

Oil 

2.28C-05 

2.28C-05 

Oil 

3.216-05 

4,296-05 

3.856-05 

2.556-11 

1.666-12 

2.80E-13 

1.74E-13 

1.746-13 

. T( 

9)=o.uoac-n3 

2.206-05 

2.286-05 

3.216-05 

4.296-05 

3.85E-05 

2.55E-11 

1.666-12 

2.006-13 

1.74E-13 

1.746-13 

Y( 

81=6.7506 -03 

2.31E-05 

2.31E-05 

3.26F-05 

4.366-05 

3.92E-05 

2.626-11 

1.936-12 

3.17E-13 

1.706-13 

1.70E-13 

Y 6 

7) =4 .7506-03 

2.31E-05 

2.31E-05 

3.266-05 

4.356-05 

4.01E-05 

2.79E-11 

2.55E-12 

3.596-13 

1.646-13 

1.64C-13 

Yl 

6)=3. 7501-03 

2 • 20E-05 

2.28C-05 

3.216-05 

4.296-05 

4.00E-05 

2.84E-11 

2.73E-12 

2.73E-13 

1.316.13 

1.31E-13 

Yl 

b>=3. 2596.-04 

O.OOE+OU 

0 .OOE+OO 

0.006+00 

0*006,00 

0.006,00 

0. DOE, 00 

0.006+00 

1.66C-13 

l.oic-ls 

1.016-13 

r« 

4 )=2. 750E-U3 

0.006 + 1)0 

3.40E-19 

3.406-19 

3.40E-19 

3.40E-19 

3.40E-19 

1.146-15 

B.15E-14 

7.486-14 

7.48E-14 

Y I 

31=1,5006.-03 

0. OOE+OO 

3.40C-19 

3.406-19 

3.406-19 

3.406-19 

3.40C-19 

6.96E-16 

2.46E-14 

3.966.14 

3.96E-1H 

Y< 

21=5.0006-04 

U. OOE+UU 

3.40E-19 

3.406-19 

3.40E-19 

3.40E-19 

3.406-19 

4.436-16 

1 .266-14 

2.79E-14 

2.796-14 

Y 6 

1) = U.OOOCOO 

O.OOE+OU 

3.40E-19 

3.406.-19 

3.406-19 

3.406-19 

3.406-19 

4.436-16 

1.26E-14 

2.79E-14 

2.796*14 


xuxi 

1= O.UOU 

2= 0.030 

3= 0.070 

4= 0.120 

5= 0.170 

6= 0.168 

7= 0.197 

8= 0,202 

9= 0.207 

10= 0.210 


FIE 

Yl 

LD Vrtl-UES Uf 
I0)=9. DU0C-03 

Pit 

l.nc.6-01 

1.866-01 

1.06F-01 

1 . 86E-01 

1.786-01 

7.50E-03 

4.B7E-04 

8.25E-05 

5.116-Os 

5.116-05 

Y( 

9 1 = 0 . pour -03 

J .066-01 

1.B6E-01 

1*U6F -01 

1.866-01 

1 . 7BC-0 1 

7.506-01 

4-876-04 

8.256-05 

5.116-OS 

5.116-05 

ri 

01=6.7506 -03 

1.616E-01 

1. 866-01 

1 .86F -01 

1.866-01 

1.7OE-01 

7.72E-03 

5.67E-04 

9.336-05 

5.006-03 

5.006-05 

Y ( 

71=4.7306.-613 

1.866-01 

i .ofcr-oi 

1.86F-01 

1.066-01 

1.796-01 

8.226-03 

7.5PE-04 

1 .066-04 

4.826-0S 

4.826-05 

Yl 

6 )=3*750£-6j3 

1.066-01 

1.B6L-01 

1.06C-01 

1.06E-01 

1.79E-01 

B.34E-03 

8-036-04 

8.046-05 

3.856-05 

3.85E-05 

Yl 

51=3.2506 -03 

(l.OOE + UO 

0. OOE+OO 

0. OOE+OO 

0. 006+00 

0. OOE+OO 

0. OOE+OO 

0.006+00 

4.896-05 

2.976-OS 

2.976-05 

Yl 

4 1=2. 750r.-<J3 

O.OOE+OU 

1.006-10 

1. OOF-IO 

1.00E-1U 

1.006-10 

1.00E-10 

3.35E-07 

2.40E-05 

2.206-Os 

2.206-05 

Yl 

J)=i.bOi1C-Oi 

0.006+00 

1.006-10 

l.oor-io 

1. 006-10 

1.006-10 

1.00E-10 

2.05E-07 

7.256-06 

1.166-OS 

1.16E-05 

Yl 

21=5.1)006 -09 

n.ooE+ou 

1.006-10 

1 .OOF-IO 

1 .006-10 

1.006-10 

1.00E-10 

1.306-07 

3.716- 06 

8.206.06 

B. 206-06 

Y I 

1)=U.OOOI + 0U 

n. noE+oo 

1.006-10 

1.006-10 

1.006-10 

1.006-10 

1. 006-10 

1.30E-07 

3. 716-06 

8.206-06 

8.206-06 


MIX) 

1 = o.uou 

2= 0.030 

3= 0.1170 

4= U.120 

5= 0.170 

6= 0.180 

7= 0.197 

8= 0.202 

9= 0.207 

10= 0.2111 
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* * 


I IF.Lt,' V/VLULS 0| 

Y C 10 l=y . OOttE -U3 
Yt 91=8. (iGOt -03 
Yt Ul=6. 7501 -03 
Yt 7)='«.7bnr -iio 
Yt 6)=3. 7501 -03 
71 5)=3. 2501-03 
Yt 4 >=2.7501 -f>3 
Y( 3 I =1.3001.-0.5 
Y( 2) = b.000C-a , ( 
Yt 11=0.3000+00 


ricu) values or 

Yt 91=0.0001-03 
Yt 81=0.7501-03 
Yt 71=4.7001-113 
Y( 61=3.7501-1)3 
Yt 5 1=3. .75(11-03 
Yt 4 1=2.7501 -1)3 
Yt 3 1 =1 »5D0E -03 
Yt 21=5. tiOOt -04 


Iff, 

{«.3tit+U2 
1 .631 1U3 
1 .601+03 
1.601+03 
1.601+03 
M .891+02 
2.751+02 
2.751+02 
2.751+02 
2.751+02 


6.381+02 
+03 
1 i +0 3 
1 . '.’IF +03 
1.601+03 
4.091 +02 
2.971+02 
2.931+02 
2.921+02 
2.921+02 


— — - TErt- 
7.351 +02 
1.731 +03 
1 .731+03 
1.73T+03 

I. 731 +03 
5.111 +0? 
3.151+02 
3.101+0? 

J. Util + 0 ? 
3.081 +02 


7.1,31+02 
1. 771+03 
1.70C+03 
1.701+03 
1.771+03 
5.2111 + 02 
3.3.3E+0 2 
3.28E+02 
3.21,1+02 
3.261+02 


6.06Ef02 
1.761+03 
1.77E + 03. 
1.77E+05 
1 . 771+0 5 
4.54C+02 
3.40E+02 
3.361+0? 
3. 351+02 
3.35E+02 


6.451+02 
4.221+02 
4.23E+02 
4.271+02 
4 . 201+02 
4.12E+02 
3. 41E+02 
3. 391+02 
3.38C+02 
3.3BE+02 


6.291+02 
3.531+02 
3. 531+02 
3.551+02 
3.551+02 
4.04E+U2 
3.1+2E+02 
3.H0E+02 
3.391+02 
3.391+02 


6 • 231+ 0 2 
3.471+02 
3.461+02 
3.45E+02 
3.441+02 
3.431+02 
3.421+02 
3.401+02 
3.401+02 
3.401+02 


6 . 201 + 0 ? 
3.451+0? 
3.441+0? 
3.431+0? 
3.421+02 
3.421+0? 
3.421+0? 
3. 4X1+0? 
3.401+0? 
3.401+0? 


6.191+02 

6.181+02 

6.181+02 

6.181+02 

6.181+02 

6.181+02 

6.181+02 

6.171+02 

6.171+02 

6.171+02 


-0.161+01 
-G. 161+01 
- 0 . 161+01 
-8.161+01 
P.OOE+OU 
2.331-01 
2.37E-01 
0 . 001+00 


-7.801+01 
-7 .801+01 
-7.001+01 
-7.801+01 
0 . 001+00 
-1.991+01 
-1.991+01 
-1.991+01 


-7.521+01 
-7.521+01 
-7 . 521+01 
-7.521+01 
o.oor+oo 
-3.761+01 
-3.761+01 
-3.76F+01 


FIELD VALJES or 
Yt 101=9.0001-113 
Yt 9)=8 . U40t. -03 
Yt 01=6.7501-03 
Yt 7)=4. 7501-03 
Yt 6 )=3 . ,’5l)L-ij3 
Yl 5 1=3 . 250L-03 
Yt 41=2., '501-03 
Yt 31=1.5001-03 
Yt 2)=5.0UUt-04 
Yt 11=0.0001+00 


null VALiJlS OF 
Yt 10 1=9. 0001-03 
Yt 91=8. C00L-03 
Yt 91=6. 7501-03 
Yt 71=4.7501-03 
Yt 61=3.7501-03 
Yt 51=3.7901 -03 
Yt 4 1=2. 750F— 03 
Yt 31=1.5001-03 
Yt 2 ) =5 .0001-04 
Yt 11 = 0.11001+1)0 


HI 10 

4 .011-01 
4.011-01 
4.001-01 
4.001-01 
4.011-01 
2.451+00 
521+0 U 
2.521+00 
1.401+00 
1 .401+00 


4.0H-01 

4.011-01 

4.001-01 

4.001-01 

4.011-01 

2.451+00 

2.281+00 

2.3UF+00 

2.26C+00 

2.261+00 


RI 10 

3.901-01 
3.901-01 
3.D9F-01 
3.89f--01 
3.901-01 
2 .451 +00 
2. 14F+U0 
2.17F+00 

2 . lor+oo 

2.101 +00 


1 MU 

1 . 191-03 
1.191-03 
1.191-03 
1.191-03 
1.191-03 
1.191-03 
1.1VL-03 
L. 191-03 
1 .191-03 
1.191-0 3 


1.191-03 

1.191-03 

1.191-03 

1.19E-03 

1.191-03 

1.191-03 

1.191-03 

1.191-03 

1.191- 03 

3.191- 83 


Et'U 

1.191-03 
1. 19F-03 
1.191-03 
I.19r-03 

1.19r-03 

1. ior -03 
l.l9r-03 
1.191-03 
1 .191-03 
1.191 -03 


4= 0.120 

5= 0.170 

6 = 0.108 

7= 0.197 

0 = 0.202 

9= 0.?07 

10 = 0.210 

-6.631+03 

-6.61E+01 

-6. 651+01 

-6.67E+01 

-5.68E+01 



-6.63E+01 

-6.60E+01 

-6.63E+01 

-6.871+01 

-5.82E+01 



-6.631+01 

-6.601+01 

-6.641+01 

-6.951+01 

-5.78E+01 



-6.631+01 

-6.60E+01 

-6.631+01 

-6.991+01 

•5.60E+01 



O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

-7.051+01 

-5.46E+01 



-5.62C+01 

-6.321+01 

-6.65E+01 

-6.881+01 

-5.29E+01 



““S • 62E1+ 0 1 


-6.65E+01 

-6.821+01 

-5.10E+01 



-5.621+91 

-F.32E+01 

-6.6SE+01 

•6.791+01 

-5.08E+01 



5= 0 .170 

6 = 0 f/1 8 8 

7= 0.197 

0 = 0.202 

9= 0.207 



3.81E-01 

3.83E-01 

1.60E+00 

1.91E+00 

1.941+00 

1.95E+00 

2.541+00 

3.81E-01 

3.83F-01 

1.6QE+00 

1*911+00 

1.941+00 

1.95E+0n 

2.54E+0U 

3.60E-01 

3.821-01 

1.59E+00 

1.911+00 

1.951+00 

1 . 961+0(1 

2.54E+00 

3.00E-01 

3.81E-01 

1.58E+00 

1.901+00 

1.95E+00 

1. 961+0(1 

2.541+00 

3.01E-01 

3.021-01 

1.57E+00 

1.901+00 

1.961+00 

1.97E+00 

2.54E+0U 

2.451+00 

2.451+00 

2.45E+00 

2.451+00 

1.971+00 

1.971+On 

2.54E+00 

2 . 02 E +00 

1.981+00 

1.97E+00 

1.971+00 

1.971+00 

1.97E+00 

2.541+00 

2.05E+00 

2 . 00 E +00 

1.99E+00 

1.901+00 

1 ■ 981+00 

1 .981+0(1 

2.54E+00 

2.06E+00 

2 . 011+00 

1.99E+00 

1.991+00 

1.981+00 

1.98E+00 

2.54E+00 

2. D6E+U0 

2 . 011+00 

1.99E+0U 

1.991+00 

1 .901+00 

1.981+On 

2.54E+00 

4= 0.120 

5= 0.170 

6 = 0.100 

7= 0.197 

5= 0.202 

9= 0.?07 

10 = 0.210 

1.191-03 

1.191-03 

1.19E-03 

1.191-03 

1.19E-03 

1.191-03 

1.191-03 

1.191-03 

1.19E-03 

1.19E-03 

1.19E-03 

1.19E-03 

1.191-03 

1 - 191-03 

1.191-03 

1.191-03 

1.19E-03 

1.191-03 

1.19E-03 

1.191-03 

1.19E-03 

1.191-03 

1.191-03 

1.19E-03 

1.191-03 

1.191-03 

1.191-03 

1.19C-03 

1.191-03 

1.191-03 

1.19E-03 

1.191-03 

1.19E-03 

1.191-03 

1.19E-03 

1. 191-03 

1.191-03 

1.19E-03 

1.19E-03 

1.191-03 

1.19E-03 

1.191-03 

1.191-03 

1.191-03 

1.191-03 

1.19E-03 

1.191-03 

1.19E-03 

1.19E-03 

1.19F-03 

1.19r-03 

1.19E-03 

1.19E-03 

1 .IDE- 03 

1.191-03 

1.191-03 

1.191-03 

1.191-03 

1.191-03 

1.191-03 

1.191-03 

1. 19E- 0 3 

1.191-03 

1.19E-03 

1.191-03 

1.191-03 

1.1 91*03 

1.19F-03 

1 .19E-03 

1.191-03 


>-d P 

1® 

wp 

Q >-d 
£ > 
£ s 


1- O.HOU 2= 0.030 3= <1.070 4= 0.12U 5= 0.170 6 = 0,100 7= 0.197 8 = 0.202 9= O.PO 7 10= 8.210 


APPENDIX E 


UPDATE TO COMPUTE THE STANTON NUMBERS 
E . 1 Introduction 

Appendix E is concerned with the calculation of the Stanton 
numbers. The basic theoretical background may be found in 
detail in Ref. 7. Therefore only a brief account is given 
here . 


E. 2 Theory 


When the shear stress is uniform through a Couette-flow layer 
(which implies negligible pressure gradient and mass transfer), 
when the fluid properties (apart from turbulence effects 
on transport) are uniform, when the wall is smooth, and when 
the Reynolds number R is sufficiently high (>11.5fr the 
following relations result from integrating the equations: 


s = ^K/in (ERs*)J 
S iF s/[o t (l+s*P)j 


(E-l ) 
(E-2) 



(E-3) 


where: s is the shear-stress coefficient (=x/pu 2 ). 

S is the Stanton number. 

H is the recovery factor. 

E is the constant in the log. wall-shear-stress 

expression. 

R is the Reynolds number (=puy/^). 
and P is an integration constant. 
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* This value is derived by equating the laminar and turbulent expressions 
for shear stress and solving for y+ (the well-known non-dimensional 
distance) I.E. it represents the point where the two shear stress curves 
intersect. 



E can be taken as 9.0 (see Ref. 7), while P is a function 
of the laminar Prandtl-Schmidt number cr and its supposed 
turbulent counterpart, a^; the latter function is fitted 
quite well by the relation: 

\ 

9.0(tf/cr t -l) (cr t /cr) (E-4) 

(see Ref. 13). 

These relations are known to fit experimental data quite well 
in situations for which the assumptions apply, e.g. fully- 
developed turbulent pipe flows, and turbulent boundary layers 
on flat plates. Equation (E-4) should not be used for a 
values below 0.5. 

E . 3 Computational details 

The only routines requiring modification for the six Stanton 
numbers* calculation are SOURCE and WALL. 

The first business of WALL is to calculate indices, properly 
locating the wall under consideration. Thereafter, if laminar 
flow is indicated by R being less than 132.25 (H11.5 2 ), the 
laminar-flow velocity sequence is sought at statement number 
19 for velocity and at statement number 410 for enthalpy. It 
will not be hard for the reader to recognise, in these two 
program passages, the FORTRAN equivalents of the formulae 
which are given above. 

Because of the fact that equation (E-l) contains s on both 
sides, iterative solution is needed; this is the reason for 
the DO. 17 loop which is left if the nurber of iterations 
(NIT) equals 11 or s" differs by less tnan 0.0001 from its 
previous value . Then the Stanton number is calculated 
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* I.E. Stanton numbers at inner surface of end wall, at outer surface of 
end wall, at outer surface of inner tube, at inner surface of .inner tube, 
at inner surface of outer tube and at outer surface of outer tube. 


according to equation (E-2), and is printed out for 
KTEST>0. The only modifications to the subroutine 
SOURCE are inserted in Chapter 4, i.e. in the Chapter 

r\, 

where the source terms for h are computed. The modifications 
consist of calling subroutine WALL to calculate the Stanton 
numbers prior to their use for the calculation of heat 
transfer. 

E.4 Additional FORTRAN Symbols 


NAME 

LOCATION 

: i 

TYPE 

MEANING 

PJAY 

WALL 


Jayatillaka' s P function 

PRRAT 

WALL 


Prandtl number ratio 

STERM 

WALL 


Stanton number 


E . 5 Listing of modified subroutines 


The listing of the two modified subroutines SOURCE and 
WALL follows. 




ORIGINAL PAGLJS 

£tu i» 2. 3 . 3 OF POOR QUALIFY 

SUBROUTINE WALU II . STERM. STERM1 , If , JPHI ) 

COMMON/COMA/ U < 480 ) * V ( 475 ) . H 1 50 0 ) » F« ( 500 ) » FUE ( 50 0 i) .h S ( 50 0 . 15 ) . i WA0Q0030 
PP(20) .TEM<500) .P(414) .KHO1500) .EMU(SOO) . WA000040 

DXG(25) «0XU(25) .KOUN1 ( 25 > tKDXG ( 25 ) .RDXU ( 25 ) .RSXG ( 25 > , RSXU ( 25 ) . WA000050 

STORE (25) .SXG(25) ,SXU<25> »X(25) ,XU(25> ♦ WA000060 

A(20) «AE(20) , AN ( 20 ) * AKEAE ( 20 ) , AS ( 20 ) , ASNIH ( 20 ) , AW ( 20 ) . B ( 20 > ♦ WAOOOO 7 O 

B SNIP (20) . C (20 ) »CSNIP(20) .DIFE ( 20 ) . OIFEE ( 20 ) .DIFN < 20 ) « WA000030 

DIFNE ( 20 ) »l)IFW(20)»OSNIP(20) * DU ( 20 ) .DV ( 20 ) » DYG ( 20 ) , DYV ( 20 ) t WAOOOO 9 O 

FLOWE(20> ,FL0WEE(2U> ♦ FLOWN (20) »FLOWNE<20) .FL0WW(20> ,R<20) . WA000100 

RUYG ( 20 ) ,RUYV(20) ,KSYG(20> *RSYV(20> iRV(20) .RVCB < 20 ) ,RVSQ < 20 ) , WAOOOllO 
SP ( 20 ) * SU ( 20 ) » S YG ( 20 ) ,SYV<20) . Y(20) , YV ( 20 ) , AEDDX < 500 > . WA000120 

ANDDY ( 500 ) .AREAN(500) . VOL (500) * WAOOOI 3 O 

AKSL(25,25) .PREFF(25) ,PRL(25) tPRT(25) ♦RSLINE(25»25 ) 1 WA000140 

IEW ( 25 ) f ILAST(25) ,IMON<25) ,IXNY(25) ,IZERO(25) ,KS0LVE(25> , WAOOOI 5 O 

RSREF (25 ) »RS5UM(25) .TITLE (25) WAO 00 160 

DIMENSION DIFNW ( 20 ) , UIFWW ( 20 > ,F ( 11889 ), FLOWNW < 20 > ,FLOWWW(20> WA000170 

EQUIVALENCE <F (1) .U(l) > ♦ (FLOWNW ( 1 ) .FLOWNE ( 1 ) > t (FLOWWW(l) . WA0 00180 

1 FLOWEE(l) ) . (DIFNW ( 1 ) «DIFNE ( 1 ) ) . ( DIFWW ( 1 ) . DIFEE ( 1 > > WA000190 

COMMON/COMB/ WA000200 

AK.ARRCON«BlG,CCHELK, CMIX.DAT A (6) .OP ,EL1 .LL2 .EMA ,LMF .EMUREF . WA000210 

epst.eqrat.ewall.flob.floc.flowin.flowst.flowup.fstoic. WAO 00220 

FSTO IM.FUB.FUC.HFU.HW, INC .INERT. IPLRS.IPRLF.IPRINT.ISNIP. WA000230 

ISWEEP.IX ,IXM0N.IXPKLF,IXP1,IXU«IXUP1,1XW,IX1NY.IX1NYU. WA000240 

IX1NY1 , IX2NYU , IX2NY2 . 1 YF * I YFM1 , IYFUEL , I YL • I YLM1 ♦ I YLP1 . 1 YMON, WAO 0 0250 

IYPREF.IYW.IYWMI.IYWPI.JEMU.JFM, JFUE.JH. JLAST. JP.UPP, JRHO, WA00G2fe0 

USl ,US2, JTEM, JU, JV.KASE.KINpRI ,KLT *KRAD . KRHOMU , KSWEEP , KTEST , WAO 00270 

LABPHI . LSWEEp , NSOL V£ . NTDMA , NTMAX , NTRAV .NUMCOL .’NX.NXMAX.NXMl. WAO 00280 

NXM2,NXYG.NXYP,NXYU,NXYV,NY,NYMAX,NYM1,NYM2.0XB.0XC,PJAY, wao 00290 

PKEEXP, PRESS, RELAXP, RF.RFSTM.RSCHEK.RSMAX.RU .R10.K21.K20t WA000300 

STOICH.TB.TC.TINY.TMAX.TMIN.UB.UC.WMIX WA000310 

COMMON/HTR/ ALNR1I .ALNR10, ALNR2I.ALNR20.C0N0.EL3. 

1 EMIS10.EMIS2I .EMIS20.EMISX1 .EMISXO.REMI .RHOINF, 

1 SiGMA.STXI.STXO.STH .ST10.ST2I .ST20.TINF.UINF.VlNh , WAREA 
DATA SHALF/O .04/ WA000320 

KWALL=2-1/I1 WA000330 

I2=Il+3-2*KWALL WA000340 

l3=U+2-KWALL WA000350 

IF (IY.NE.0) GO TO 10000 WA00036Q 

I=12+IX1NY WA000370 

IF (JPHI.EQ.UU) GU TO 10 WA000380 

IF( JPHI.EQ.UH) GO TO 400 

RETURN WA00Q390 

WA000400 

10 I=I2+IX1NYU WA000410 

RUKEF=KH0(I )*ABS(U(1) ) WA000420 

RE=KUREF*DYG( I3)/EMUKLF WA000430 

IF(KLT.EQ.l) GO TO 19 WA000440 

IF (RE, LT. 132,25) GO TO 19 WA000450 

ER=KE*EWALL WA000460 

ARGMIN=11.5»EWALL WA000470 

DO 17 NIT = 1 . 11 WA000480 

SHALF1 =SHaLF WA000490 

AKG=ER*SHALF WA000500 

IF ( ARG.LT.ARGMIN) GO TO 19 WA000510 

SHALF=AK/ALOG(aRG) WAO 00520 

IF (ABS(SHALF-SHALFl) ,LT. 0.0001) GO TO 18 WA000530 

CONTINUE WA000540 

S=SHALF**2 WA000550 

STLRM1=S*R( I2)*RUREF*SXU(IXU) WAO 00 560 

RETURN WA000570 

STERMl=EMURtF*.SXU< IXU)*R( U M>ROYG( 13 ) WA000580 


17 

18 


19 
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RETURN WA000590 

400 CONTINUE 
I=ll+lXlNY 
IW=I-NY 
YREFsDYG ( N Y ) 

IFU1.EB.IYWM1) YRtK =0.5*0 YG(IYW) 

IF< II. EU. I YWPl ) YKLF=0,5*OYG< IYWF1) 

RUKEF=«H0 < I > *0 , 5*AbS lUUKUUMI) 

IFUl.EO.NY) RUKEFS«H0INF*U1NF 

RE=KUREF*YREF/EMURLF 

IF(KLT.EQ.l) GO TO 410 

IFIRE. LT. 132.25* GO TU 410 

ER=HE*EWALL i 

ARGMIN=11.5*EWALL 

Nir=o 

401 SHALFlsSHALF 
AKG=ER*SHALF 

IF< ARG.LT. AKGMIN) GO TO 410 
SHALF=AK/ALUG(AR0) 

IFIABS(SHaLF-SHALFU;LT.0.0001) GO TO 402 
NU=NITU 

IFINIT.LT.il ) GO TO 4U1 

402 S=SHALF**2 

PRRAT=PRL< JPHI)/PRT(UPHI) 

PJAY=9. 0* ( PRRAT»1 • 0 ) /PRRAT **0.25 

STERM=S/(PRT( JPHI)*«1.0+AMAX1(-0.9999,PJAY*SHALF) ) ) 

GO TO 411 

410 STLKM = 1.0/( PKL ( JPH1 > *KE > 

411 CONTINUE 

IFIKTEST.GT.O) WRITE (6.412 ) I1.IY.STERM.NTRAV 

412 FORMAT ( 10 ( 1H* ) . 213 *E20 .8 . 13) 

RETURN 


10000 1 = 1 Y + IX1NY WA000600 

IV=IY+IX1NY1 

IVS=IV-1 . 

IF < JPHI .EU. JV) GO TO 200 WA000610 

IFlUPHI .EQ.UH) GO TO 4000 

RETURN H i WA000620 

200 RUREF=RHO ( I ) *ARS ( V U V ) > WAOOO63O 

RE=RUREF»DXG(I3)/EMURlF WA000640 « 

IFIKLT.EQ.l) GO TO 290 WAOOO65O 

IF (RE. LT. 142.25) GU TO 290 WA0006&0 

ER=HE*EWALL W A 0 0 0 6 7 0 

AR0MIN=11.5*EWALL WA000680 

DO 270 NIT=1«11 W AO 0 0690 

SHALFlsSHALF WA000700 

AKG=ER*SHALF WA000710 

IF ( ARG.LT.ARGMIN) GO TO 290 WA000720 

SHALF=AK/ALOG{ARG) WA000730 

IF (ABS(SHALF-SHALFl) .LT.U.0001) GO TO 280 WAOQO74O 

270 CONTINUE i WA0OC75O 

280 S=SHALF**2 WA000760 

STERM1=S*RUKEF*SYVUY)*RVUY) WA000770 

RETURN WA000780 

290 STEHMI=EMUREF*SYV (IT) *RV ( I Y I *RDXG (14 ) WA00Q79P 

return WA000800 
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*♦000 CONTINUE 

YREF=OXG(MX) 

R,UKLF=RHO( I )*0,5*ABS(V( IV)+V< ivsn 

IF(I1*EQ.NX.0R.IX.EU*NX> HUKEFvRHOINF*VINF 

RE=KUREF*YREF/EMURtF 

IF 1KLT • EQ , 1 ) GO TO ‘♦100 

IFIRE. LY. 132. 25) GO TO 4100 

ER=KE*EWALL 

AKGMIN=11.5*EWALL 

n i r=o 

4010 SHALF1=SHAL> 
akg=er*shalf 

IF«ARG,LT,AKGHIN> GU JO 4100 
SHALFsAK/ALOG(ARG) 

IF»ABSISHALF-SHALF1).LT.0.0001) GO TO 4020 
NU=NIT + 1 

IFtNIT.LT.ll) GO TO 4010 
4020 S=SHALF**2 

PRRATsPRU JFHI )/PRT « JFHI ) 
PJAY=9.0*(PHRAT-1.0)/PRKAT**0.25 
STERMsS/tPRTC JPHI)*< l.Q+AMAXH -0.9999. PJAY*SHALF> > > 
GO TO 4110 ' 

4100 STLKMsl.O/(PRL( JPHD*K£) 

4110 CONTINUE 

IF(KTEST.GT.O) WRITE(6»412» II ♦ I Y ♦ STERM . NTRAV 

RETURN 

ENU 


ORIGINAL PAGE IS 
OP POOR QUALITY 


WA000810 



275 


U t. 


PAGE 0001 


ELU 1 1 2 » 3 . 3 

SUbHOUl M\‘r SUiJRCE<LPHl ) 


C - — ... 

CHAPTER 0 U Z 0 0 0 0 C UEULAK AT 1 UNS 0 0 0 0 0 0 0 

C 

CO.M ‘iU.j/UU (A/ U ( 4 rt 0 ) » V ( 4 / 5 ) • r I ( 5 C 0 ) » F M ( 5 0 0 ) « F UL ( a U C ) , P S ,(500*15)* 

1 pP(20> » • »•* » H-iH > ,RtiO(500> »EMU(500> i 

1 „V»Ub) »;XU(25> *KOUNf (25) *KQXG(25) -tR0*U(2S» ,RSXG<25> ,f<SXU(25> , 

2 &)&,*(<£ J tSXi3i(25) t-SAU.(..25 ) * X ( 25 ) » XU ( 25 ) * 

2 •> ( 2 v- J . -\E(2U> ,,Uli2U> t ARLAE 120) • AS ( 20 > . AS?) IP < 20 ) ♦ AW ( 2 0 ) . B ( 2C ) , 

4 •iiiuiP(2U) « U (20) ,CSUIP(2UJ » U IFE ( 20 ) » D IFEE (.20 ) »L'IFN(20) . 

5 „ If- IE (20 1 » t.’l F.i ( 2u ) •UanlP(2U ) , JU(20 ) , OVilU > « UYG ( 20 • i OY V ( 20 I « 

6 F LO.vE I 20 ) *FLO..EE<20 ) » P LO'.vN ( 20 ) .FLOWNE(20 ) fFLO.n.V ( 20 ) ,R (20 ) , 

T kuYc,( 20> .KUYV (20 > ♦KSrO(20 > *KSYV ( 20 > ,KVUC) •KVC0120 > »KVSQ< 20) , 

0 SP(20 J «SJ(20 ) ,SYG<2U) .aYV(2C ) . Y (20 ) , YV(20) ,AECQX{bU0 ) , 

5 /'uL'b Y ( DUO ) • AKEAij ( bUU I tvUUanO) • 

X AivSL (2r. 2tj > >»pKF.FF(2b) »P!'L(25) »PKT ( 25 ) iHSHVJE (25*25) « 

1 iE/i(2a ) , (LAST (25) « l.«JH(2b ) , iXNY (251 , 1 ZERO (25 ) ,f,S0LVE(2b) , 

2 KSKEF (2b> fHSSUM(2b) , I 1 ILE (2.5) 

0 Inti IS 1 Or) L> 1 F i!.:(20> * UiF I 20 ) ,F(llGt>9) » FLOW Wirt ( <0 ) * FLOW ( 20 > 

cXUIt ALEfiCE (f ( 1) iUUI > « (FL'JWi.l/j ( 1 ) »p LfJvJWL ( 1 ) » « ( FLO’WWa ( 1 ) v 
1 FUO^EL < 1) ) . ( DlFf'j.*, ( 1 ) lulF.iH i ) ) * ( DIF w,v ( 1 ) » Ulf E£ ( 1 ) ) 

LUM.iO.M/COMr}/ 

1 AtV * ArvRC OH tBlSi CCrit.UK , CM X. , L»AT A ( 6 ) , UR , ELI , EL2 , EhA ., EMF , EHURLF . 

2 EPS 1 , EuRA T t-t ALL , F LUO « F LuC . F LOMU , F LOW ST * F LOWUP , FS roie , 

5 F ST. )1m. F‘Jd tRUCiHFU.h*. 1DU, INERT, 1PLP.S, lPPEF , IPfUMT , lSfUP, 

A 1 SvJXEP * 1 X « i XiiGI'l , XXFF5EF , 1XP 1 » I XU , IXUP l , IXyJ ♦ IXlN Y 1 1 X lf'<Y U » 
b XXliiYli IX2H YU* iX2liY2, 1YF ,\l YF Ml 1 I YF UEL , :A YU , J, Y LHX , 1 YLP1 , 1 Y ROW » 
t> 1 YPU’EF . i Y w ♦ 1 YlvHl , I Y WP1 * UtoWru. JF M » OF UE , Jh , UL AS T , aP ♦ dPP , JKHO , 

7 o6l ,052, JTLh, JU, JV .KAbEiKiilO’Ki. .KLT * KRAO, KKhGf’iU .KSwEtP , KTEST , 
es LAtSPhl , LSULLp » i iSOLVL i W ( DMA i f't Tf'iAX * fJ I RAV % lilJMCOL i i-lX < FiXplAX i i JXM * 
y I • X‘ i> 1 2 , 1 1 / Y G * I i X Y P . ' I X Y u , U X Y V j [ J Y f.| Y M A X , I J Y F 1 » l-i Y N 2 . U X b . 0 X U , p J A Y , 

X ) Ktf.XP « p.'ESS il’CLAXP »)(F ♦"RFSTH , RSCHEK ,'RSMAX » K A I , K10* K21 ♦ K20 « 

1 SIUiCH,T5» (U.TIliYt IHAX, rf-UN.OUtUCtrtP'ilX 


S0000030 

SOOOOO4O 

S0000050 

SUOOOOoO 

S0000070 

S 0000060 

suoooo^o 

soouoioo 

suooouo 

SU000120 

S0000130 

soooomo 

S0000150 

S0000160 

S0000170 

suoooiao 
so ou 01 90 

50000200 

S0000210 

S0000220 

S0000230 

S0000240 

SOOOU25O 

SQ0002SO 

SU000270 

SU000220 

S0000290 

S0000300 

SU000310 

S000u320 

S0000330 

S0000340 


LCOIUAL UvTP/O ! SCJ000350 

CCi-nOH /luULXX XDCOflUUU2flUF«lUH,IUH2.iUll20.1UU,lUOH,IU02»IDMi SO0U0360 

1 IUHC , IUI1O2 t ILH2 . 10i'l2U, 1LUU1L , IHCPS» IPP . UJ , KH TCS . (JA » f-JLH . S00 00 37 0 

2 M S 1 r i S L 1 , i f S L 2 , 1 1 S K t W Sf-, , p 31 . liS2 » IU ( 4 , J.5 ) S0000360 

o/PAHA'-'S/ CuHVGit.HV»upS3«UA3U0rj, I DEBUG, I ThAX , PA , SM , TK.YK » TK , TLfl * TM YSCJOO 0390 
5/SPLLES/ASUH(20 *3> , UPSUD * tiSUA ,110 ( 14 > ,sr;v.M14) »SU(14) «Si(14) , SO 0 0 0.400 

F 321 14 ) ,2(2, 7, 14 ) SU000410 

7/cLUi.iIL/ACi « A C 2 , AC3 , AU4 , AH1 , AH2 , AH3 , AH4 , ASHl * ASH2 , ASrt3 , AS'^4 , SDQ00420 
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IF (KIlMuMU.LU.u ) 

GO 

ru 

12 
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Rlxui A = r\LXUt 1X0) 





SG000650 



RL'AU 1 l = HUXu l 1 XUP1 ) 

rtSAU 1 x=iN$xoi lxu) 

U'KtiXo = li • 23 tKOAC'j ( IXUF'l ) 

I-iTf -U + IXii'lYU 
IL = i tuT 
iH=Hvl 
J. I IL = i i-| + » . 1 

ixuiiiv=( ixu-n *n y i’ll 

I V = 1 Y r f" 1 f I X o 1 ; | y 
ItV=i v+i'Y-U 

E.uVU.\.|= ( L 0 ( 1 \ +ew.J < l£) +c.i‘iU ( II, ) +Ei’iU ( 1,’iL, ) ) * ( V < lEV ) - V < IV ) ) *FV ( I YFK1 ) 
DO ii 1 Y = I V F . I YL 
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SUG0U710 
SOOU0720 
SU0O07SO 
SUD007U0 
SU0U073O 
SO0U0760 
SO0U0770 
SU0U07OO 


I = 1 Y + ixmru 

1 L = 1 + 1 1 Y 
i w = l -i! Y 

I I i— 1 + 1 

II it_= 1 li+l • Y 
IV=1Y f 1XU1I-JY 
1LV = 1 V+K'Y. .1 
Il-=U + IbUilS I 
IlF-IP+HY -.2 

UbuX;.' = (u( I)-U( I',) )*KDXblX 
UUUXF=<1.‘( ILI-Ul 1) )*KUxUil 

SI Lh.»i= I trt. J ( lE ) .tiltlJXL-Ll-iU ( 1 /J ) *DUUXW ) *KSXUiX 
Eb V U X S = h. U VU X 1 j 

EU VUXir= t C 10(1 ) +D-.U l It) +£.riu< 111) tEflU ( iffC ) > * < V ULV ) -V ( 1 V ) )*RV( 1Y ) 

3 lfc.Fl <=S I ci*,i,+ l Er.VOXU-LUVUXS ) *OKl>XG/AK£AE< iy j 

Sol 1 ( ) =A|-i£At l I Y ) * (HUH )-t J llLH)l + 0 . 5*S TEAM-M VUL < D+VOUIc) ) 

SiM 1 Y > =U .0 

c -- i;;t.<Tl,\L UNULK-KELAXATIOU 

At AC = 0 .0 

AGO“AFaU * AdS ( SO ( I Y ) ) 

A I- AC T-MSU/ l Axis l Ll ( I ) ) + I iiiY ) 

Al A I =1 . uES^ASij 

Ah ACT” Ah 1 111 AFACr.ArAl ) 

So l 1 Y ) =SU < 1 Y ) + AFaC I tUH ) 

1 Si- 1 1 Y ) =Gl* ( l Y ) -AF4L I 
11 1 . 0.1 ri.jut 
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GU I .) l‘t 

12 00 13 iY = IYt- • 1YL 
I|-‘ = 1 Y + ICviitS I 

lMfc_ »•* = 1 H + 1 1 y '• 

SUl i 7 >=AKEAL( IY >*<HUt J )-HUt.H) ) 

13 SHM f )=0.0 
C 

14 IM lAJ.tJ. 1 X . ,U 10 • ll'iC.LU.-l) GO TO 1000 
GO 10 1002 

1000 DO 1001 1Y=^«IYY 
i = 1 r f ixiwyu 

So M Y )=riltT*0( I ) 

1001 Sr 1 * iY ) = ~\i l O 

IIM yuj-tCLG jUE IU ImNLK I DUE. 

1002 if ( IXu.GT. 1XW) l<K I UNU 
it- MJC.ilE. 1) DU TU it> 

12=1 Y .v 'll 

1 3 = i Y ,■/ 

gu ro ic 
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17 COo f I.iUl 
10 S = 3HaU- **■ ii 

SHI 12 ) = 3H< 12) - s*i\( i2)*K0lILK*SXU< I XU) 

K L I UK . 1 

19 SIM 12)=KIM lK>-E;v:UKCP*3XU( 1 XU ) *H ( 12 ) / ( JYG i 13) *0.5) 
Kl_ I UK.) 
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20 I L U I’l a T = 1 X 2> t T 2 - 1 
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ML ui! t = 0 .r * ( VOL ( i ) + VGL( ill ) ) 

So ( 1Y )=ST:iG+*\/uLU.';t+AKLA!‘H i ) * t P ( IP) -p ( IP + 1 > > 

b.'lif) = -L lUi'i + VuLui'iU/KVcjiii ( 1 r ) 

I.ILIUIAL UIIU.tK-RLLAXAT.IQN 

ap mc-o . u 

AbU-.->K/\C*,'.bS ( su ( X Y > > 

ATMO | = Amj / ( Aiis ( V ( IV) ) + 1 1 1 1 Y ) 

AP A I =1 • uti* Abu 

Al- ACT sAnlili ( AF AC 1 » MP A I ) 

SU ( LY >=SU< 1 T > + AFAC I *V U V ) 

SPUY)=SP<1T ) -APAC I 
coil I lilUL 
RE I URN 

DU 23 1T = ITP . I Y )_ i . 1 

I = 1 Y + 1 AXHY 

I I i=i+ l 

1P = 1Y + ICU lo I 

SU( 1 Y )=AKEa(M I )*(P< IP > -PUP + 1 ) ) 

SP ( i < )=- . lb* l Ei i>< I ) +u-iu ( ill > ) * ( vOl 1 1 l + VOU( IN ) ) /KV SO ( iY ) 

KLIUImI 

DO 2o 1Y = IYP , lYU-il 
suUY)=o.i; 

SP(IY)=-bib + 

RE I Ul-.il 


CHAPTER +44+4H 

C- 

4 C COHl'.lUt 

DO 4 1.' 0 I Y — X TP < 1 YL 
Su l IT >=U..j 
40 0 SP l I T >=0 .0 
C 

IP ( 1a.LU.hX J go ru 4iu 

l = lT.. + iXli)t 

IS=i-l 

IT. = 1 + 1 

IE=i +uY 


SUUrCE TERMS FUI< H 


SQ001570 
SuOOiSfaO 
SOO 01590 
SOOUlfaOO 
S0001610 
SO 00 1620 
S0001630 

SOOOI64O 

S0001650 
SUOOlotO 
SU0U1670 
SOOOI66O 
SOOOI69U 
SU001700 
SU0D1710 
SU001720 
SUQC173U 
S000174U 
SU0O1750 
SUO 01 760 
SUO 0 177 0 
S00017a0 

SUQ01790 

SuOOlflOO 
soouiaio 
SO 0 0 1 820 
SOO 0 185U 
SOOOIB4O 
SOOOI85O 
SOQ01860 
SUO 0 167 0 
SOOUI88O 
SU001090 
SU0U1900 
S0001910 
S0001920 
SU001930 
SU001940 
S u 0 0 1 9-5 0 
•50001960 
SU001970 
-SO 00 I960 
S0001990 
SUO 0-20 00 
SOO 020 1 0 
SU002020 
SU002030 
S0002040 
SOO 020 50 
SU0U2060 
S0002070 
SUO 020 60 


Ivt-l-flY 
il .-. = a .-, + i 

I . /vl_= ,Y ■*-!,. IliY 

Iv.ttL.5--i.’ AL-1 
Lv.mlL=L ../-L + iIY 
1/ />u-.=i.-.al-hy 

1 W A LS n - i v. “ 1 

ul'AUi o = f.U 
Oh Mj 14 = 0,0 

if il'.,ul,U«l cU Tu.'Hia 
At ( 1 W. ) = tj ,1/ 

A i I 1 Y y, ) =o , U 
nS ( I Y •. ) =0 , L. 

A »• L i 1 ) = 0 , u 
AM 1 Y..I-1 1=0.0 
nit t IYc, ”'l »=U.O 

(.ALU - v ALL ( i Yvi.tii 1 STt.K.f'i , 0 . JH) 

31 1 1 =S I e.t< • 

Hi i=STl i * I |U ( I ^ ) *nb3 l 0 # b* I 0 t 1S)+U( IbfeJ ) >*C.»UX 
KvUsSXIjI iA)/( 1 ,U/lKXi*Hii J+MLllHlI/OChD} 

01 i = r< j1 WLHUS > 

L.-LL ,,-alL ( l Y n p i • STt-Kf'i i 3 l L.A ill , i) , JH ) 
il 1U=S I r,r> . 

HiL = S T lUii.rlU l ii f ) + ,ibi> t U . b* ( 0 ( ] 'I ) +U ( II t,. ) ) ) *Ci*lX 
H 0 1 0 = $ X V ( 1X1/ t i , u/ (Klu*hiU) *nLnhiU/LOhL ) 

CjlU=rvijiO * TUU i’Ji ) 

If V 1 X ♦ L X . i i 60 TU 4u l 
II ». IX.LO. UVJ) \(! JU 4Ub 
CAIiLnsCuf,," ¥AHLnL ( I YW > 

G».'.nL=L AKuA^KDXe* ( IXPi j 
in *aD‘XG( IX > 

GLOIU Let,/; ‘At. + Gn! t '.ij 

Ut'Ul I l 2 = 0At /vL + jLi l iL I +GAhAi\ + I i'"> ( I a ) 

GO I u 41 U 

401 GAMAf.=Cof.L.*n.<EAC < I Y vj ) ♦’KUXW U Xpl ) 

LLUl'iLl = t>n InL 
:jc U h0ci=un 5/vc.*Tt.ri( it i 
OL l«J 4 1 it 

405 b»>i'i/V,7 = Ci.<lii_:-*AAL‘AL ( I Y >v ) ( i X ) 

4‘Loih;i=ga v«w 

G L U W I, ’ 2 = o X A tV * If" I ■ ( I VJ 1 
41ij COM I-iltL 

Cl'MUllsiSiGhAx-l TEM 1WAL ) +TLM l.l ) ) * l TE.f-1 < I WAL ) **2 + fENf 1 » **2 > 
1 / l 1 , 3 / t aALam ( I ) *Ci'iA3lO ) *KLHl/AI<LAfH l.yALS ) » 

UIvAIjI AL'l 1 

t. K n U 1 4 = i ; i ; L) i i w r F. S'i » 1 > 

S o l i Y .< •'*' i I =Ki 1 1 1*1 L f t < 1 ) - si 1 i 
SL t i Y <: ) =0 CUuU2+')Ha01 1*1 Lot iWAL ) +G 1 I+U 10 
ski n .. )=-:;c Jiini-urAuii-KUii-f.uio 
SLM lY;.Pi)=KU10*Tt..‘i» 1 )-wiU 


PAGE 0005 

S0002090 
SU002100 
SO002H0 
30002120 
SU0U213U 
SO 002140 
SOOU215U 
S000216U 
30002170 
S0002150 
S0002190 
30002200 
S0002210 
SG0U2220 
SO00223U 
SOOU2240 
S0002250 
S000226C 


S0002270 
S0002250 
S 0 0 0 2 2 9 0 


S0002300 
SO 002310 
S00023-20 
SC0O233O 
30002340 

S0002350 1 

30002360 

Su 0 0 23 7.0 

SU0U2360 

SU00239U 

SOOU2400 

S 0002410 ■* 

SO 002420 

SU002430 

SOU 0 2440 

SP002450 

300024^0 

SU00247U 

SOOU2430 

30 CO 24 90 

3uU025U0 

SO 002510 

S0002520 

SQ002550 

SU00254U 

S0002550 

S0002560 
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A 
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c 


Q«^ 

H15 CDulIr-JUt 

CALL vjALL ( N T M » STLKM .61 LKM1 . 0 » JH ) 

ST*ii = STU<M 

HHl = ST 2 i *pHO( IwALSi*AtiStU.b*(U(iVyALb)+Ut 1WALSW) ) >*CMIX 
RU21=SXG(IX)/< 1,0/1 K2i*H21 )+ALNK21/LGHP) 

U21=PU2l*TtH( IVIAL5) 

CALL WALL ( tlY t STEKIW8 YLKMl « U * JH ) 

ST*U=:SYEIU 

H2u = ST2J*KhUl[)F*ABS)UlflF )*CMIX 
RU20=SXu ( [X)/( 1,0/IK5U*H2 U>+aL!)K20/LOND) 

G>2U=R'J2U*Ti!JF 
IF Ua.LJ. 2) 00 TO Alb 

CAKtA=CUf.OWAK£A 
GAi*:/\E=CAi<EA*HCXC- ( IAK-i) 

GAKA,-, = CAKEA*KDXG ( IX ) 

(iCUIlOl=bA.>!AL + GAt'iAw 

QC0fl02=0AiiAL*TE['< IWALL)+0/UVUv*TLM( 1WALW) 

GO 10 420 

416 GAI'iAC=CUfJO*WAReA*RUXGUXFl ) 

Q C U H D 1 —b A V A L 
GLUHl)2=GMiAt*TEm It > 

420 QKAL>Ol = SIGMA*SXGl IX)*K2U*LfUS20’MTII'iF+TEM( IwAL) ) 


1 *11 IHF **2+ I EMI IWAL) **2) 

SbtllY)=fvC0i4U2 + GRA0i*» + ORAU0l*TIIiF+U21+U2U 
SFU1Y ) S-0CUNU1-0KAU14-UKAU01-RU2I-RU20 
SU UlYMl ) =RU2 I*TEl'i ( i^AL ) -U2i 


If YlX,:lJt,flAivil ) HLTUKN 
HEL5C = U.b*EL3/C0r)U 
DO 425 i Yr2 » riYF-1 

i=iY+ixiur 

It^l + IJY 

IV=iY+iXi;iYl 

IVS=IV-1 

CALL WALL ( I'JXI-H ,S TERM, STLKH1 » IY , JH) 

ST X l=Sl c.h.1 

HX 1=STXI *RHU ( I )*AbS»U.b*i V( 1V)+V< I VS) ) )*Ci4lX 
LiX 1-AREAE ( I Y ) /( 1.U/HX1+HLL3C) 

QXISUXI* ITtm I ) -TEH l XL ) ) 

425 SOI 1Y)=SU( 1Y) -OXI 
HE I UKN 

430 00 435 IY=1YF , IYL 
1=1 Y+IXINY 
I V = 1 Y + 1 X 1 ! ] Y 1 
IVj-l-iJY 
1VW = 1 V-llYtil 
JV'dWsIVfJ-l 
IH=i+l 

IS=i-l . 

C0MUL=C0HU*LL3 

IF l iY.tu.MY ) GO 10 481 

c all WALL ( NX Ml . STEKH t STEKM1 1 I Y . JH > 


jit garsi 


PAGE 0006 


SO 00 25 70 
SU002560 
S0002590 


S000260Q 
SU00261 0 
SU002620 
S0002630 
S0002640 
S000265U 
S0002660 
SOO 02670 
S0002680 
SO 0 0 269 0 
SOO 0270 0 
SUO 0271 U 
S0002720 
S0002730 
S0002740 
S0002750 
SOO 02760 

SOO 02770 

SO0027S0 
S0002790 
S0002800 
SUO U 231 U 
SOO 02820 
SOOU2830 
SOO 0284 0 
SOQ02650 


S0002360 
S000237U 
SU0O23QO 
S0002890 
S00 0290 0 
S0002910 
SU002920 
S0002930 
S0002940 
S0002950 
S0002960 
SUQ02970 
SOO 02980 
S0002990 
S0003000 
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STXl=STL|<i-, 

HXi-STXl*^HO( IW)*AtiS(U.5*< VtIVlJ>+V(lVSW> > >+C<-1IX 
Ux i = A,ltAL< IT )/ ( l.O/MXi+rttLdC ) 

OAi=i..Xi »TLI J it i :> ) 

(jAf’Ai IsLUl-J.iL/ ALuG ( i‘< ( I V + 1 ) /H 1 t Y > ) 

GO 10 462 
Ail UX 1 s.o . U 
JXi=P.U 
G»;i- Ai ,Su , Q 

C/'LL „Ali_ ( IJX , STtlJd'l • S r LKIV1 » iY , JH » 
b fXOsbl LA I- 1 

nxu = bTxo*- 5 HUi,iF*A w s i vii Jt- »»cmix 

uXO=.,nKLA/ l A . O/MXot^tLiC ) 

GO 1 0 Abo 

432 CALL /iaLL < A4X . STtK'-l , bTc.Kf'11 . 1 Y . JH > 

si xoss r t-tth 

rlXU=3TXU*RHUIIiF*nBSl ViiiF >*CMIX 
UXU=aRLAE: (A T ) / ( 1 . U/MXU + HLLJL ) 

436 GXU=UXO*T IWP 

IF liY.Lu.2l GO TO 456 
GAM«b=CUIi'jL/ALOG(K< AY )/K< i T- 1 > ) 

GO 10 454 

433 GAiiAS = u . G 

434 AflUY >=G/\..AH 
AS 1 1 Y ) 20 A' iAS 

u«AUlsSIG :/^AFF;, A -E. ( A Y ) ( LMiSXl + F.iliSXU ) * ( T IHF + TLfi ( I ) ) 

1 * l T IilF -**2+ TLvl t I ) ) 

A.vl AY >=U , 0 

Sul AY)='VlF,»Ui*TI(iK + UXl+UXO 
A 35 SF'UY)=-UuAUl-UXl-UAO 

G All i A 0 s L O i ) !j •* W A R £ A * K l) A i* l AA ) 

50 l II Y ) =SU JUT ) +0 Ah Aw* 1 Lrl( 1XINY ) 

SPtliY >=3P ( HT )-G'A- 4 iA« 

CALL ,-iALL dir, STu.-ir, . 51 LIlMl i U » JH > 

51 2U:=S I c.K. i 

H2U=ST2U*RH0If]F *A35 lUlfJF )+CHIX 
KU20rE:L5/< 1 . 0/ { R2U*r12U ) +ALWK20/COWO ) 

U2U=rlU2u*TI.liF 
SUIUY >=SU(I‘JT >+020 
SKHIY ) =SP (14 1 > -FU20 
HLIUK.i 

C 

CHAPTLK b 3 5 b 5 SUUKLL fLRhS FOR Mixt'U'KE FRACTION 5 5 5 5 

C - - -- 

50 GG 52 lYsiTF » I YL 
SUl 1Y >=U.O 
52 SP l AY) = U • 0 
PL ! UH;J 

C - - - - -- ,**** 

CHAPTLK o o 6 to 6 6 o SUUKCEL Tfc.KM3 FOK FULL 6 6 6 6 to 6 


60 T1=PklL'XP«PKLSS**2 


S0003010 
S0003020 
SU003030 
S0003U40 
S0003050 
SO 0 03060 
S0003070 
SO0030QU 


SO0U3090 
S000310Q 
SOD 0 3110 


SUO 03120 

SOOU3130 
S0003140 
SO0U315U 
S0003160 
•SU00317U 
S0003180 
S0003190 
S0003200 
SG0U3210 
SU0U3220 
SQ0U323O 
SUO 03240 
S0003250 
S0003260 
SCO 0 3270 
SQ0U3200 


SO OU 3290 
S0003300 
SOO 0 33 1 0 
SOOU3320 
SQ0U3330 
S0003340 

~soo u 3350 

5S0003360 

-SOOO 337 O 

S00033QO 
SOOU3390 
S0003400 
S0003410 
-S0003420 
6S0003430 
-SOO 0 344 0 
SU00345U 
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■fsiuic >*KFSIK) 


00 fa2 IY=lYFtlYL 

1 = Jl Y> IXUlY 

FUliKMT=AHAXl(0.0. <Fn« 1 > 

FOEX=FUt ( 1 ) -FUF.KwT 
IF' (FjEX.GT.U.O) 6U 10 61 
SP< 1 Y)=-UIG 
GO 10 b2 

FUa=A.'iAX 1 ( T 1 NY » SrOILH* CF Ut. I i ) - t FFi ( I ) -FSTOIC ) *RFSTM ) > 
SF( iY J=-Tl*tXP<-ARKCOu/rtWU) > * VOL.U ) *FOX*MJt <I) /FUtX 
SU 1 1 Y ) =-SP 11 Y > *FUGKW I 
HE I UKH 


GUUKCt. TERMS FUR PO 7 


CHAPTER 77777/ 

C - 

90 EIO<UM = U.U 

IF t IX. LU. 2 •AND* lrJC»tU.-l } 

OU y2 IY = IYF . IYL 
C ERROR MASS SOURCES 

ESi'lA3S = -FL0wH< IT)+FLU.-JU( 1Y-1). 

SUUY)=tS|.,ASS 
SF < 1 Y ) -0 . 0 

92 EKK0K=ERK.JK + ABS(ESmAS3> 

IF « lA.iJE.IJXi-U.rjR. iNC*WE,l) GO 
SU(1YL)=0.0 

Sp( 1YL>=-CUU 
GO ! 0 93 

c --OUr LET OOuilUARY - UNIFORM PRESSURE ASSUMED. 

93 DO 94 IY=IYP,IYL 
SU( 1T)=U.0 
SP< 1 Y ) =-BIG 

RSE1I iE 11a. UPP ) =EKROR/RSt<EF { JPP ) 

AriSL ( iX • JPP l =A8S (RSLiMt t IX t Jpp) ) 

RE JUKii 
EMU 


GU TU 93 


• FLUvJE C I Y ) ♦FLOWW < I Y > 


TU 9D 


94 

95 


PAGE 0003 

SU005460 

SG003H70 

SU003430 

SOOU3490 

S0003500 

S0003510 

S0003520 

S0003530 

S0003540 

S0003550 

S0005560 

S0003570 

7 SOO 0 35QU 

SU003590 

SO 0 0 360 0 
S0003610 
S0005620 
S0003630 
S000364U 
SU003650 
SU003660 
S000367U 
SOOU36QO 
SOO 03690 
SOOU37QO 
S00037 10 
S0003720 
S000373U 
SU003740 
S0003750 
S000376U 
S0003770 
SO0U370U 
S0003790 
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